o 



c 
c 
c 
o 
c 
c 
c 
c, 
c 



FILE; TAPE_MAC:pADAMT HEWLETT-PACKARD : TAPEJiAC <c) Coleco 1983 Confidential 
LOCATION GKJECT CODE LINE SOURCE LINE 



Mori, 7 Nov 1983, 1 : 20 



PACE 



L 

L 
O 
# 
O 



<C)OOS> 
<0008> 
< 1 8 > 
(0020) 
<0<)38> 
<0U48> 
<0 05O> 
<0068> 
<0078> 
<Q0DS> 

<0 088> 
<0U98> 
<00A8> 
UM'lBB) 
<U0C8> 



< i) > 

< 01 ) 
<0Q02> 



t 

3 NAME A Rev 01 - HME 

4 

5 De TAPE MAC MACRO 



A 6801 A 
NAME A Rev 01 



;Header Rev , 4 



6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
IV 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
5 J 
52 
5-5 
54 
55 
56 
57 
58 



Pro ject i 



■GOTO Ede„TAPE_HAC 
NET, 83-101 



r a p !=•: .... m & c; 
i... :i: h i< S:> :i: n r o 



t-i r*i i»: 



r »;=: v .... ?•> 3 *& 

tu FJ £> i^ ti ^ 



Rev History 
Rev. Date 
1 13SEP1034 

16AUG1601 

Ede TAPE MAC MEND 



Nane Change 
HME After sending out a block with a bad cs, 

Mangle CURRENT_RAM to prevent us fron re-transmission 
HME initial code 



LOCAL EQUATES 



NODE_ADDRESS 

MN_RESET 

MN STATUS 

MN_ACK 

MN_CLR 

MN„RECE.IVE 

mn"cancel 

MN_BEND 
MN_NACK 
MN_READY 

NM_STA'lUS 
NM_ACK 

nmj:;ancel 

HM_SENl> 
NM~NACK 
i 
;STtt t L • 

CNTRL 

LENG fH_HI 
LENGTH LO 



GLB 
GLB 
GLB 
GLB 
GLB 
GLB 
GLB 

EOU 
EQU 
EO.0 
EOU 
EQ.U 
EMU 
EQU 
EOU 

eou 
tuu 

E^O 
EOU 
EQU 
"E'QU 

EOO 



LOO 
EWU 
EOO 



COMMAND BUFFER 

CURRENr_RAM 

10 STATUS BLOCK 

LENGTH OF_IO_STATUS 

TAPEJIAC 

TAPE STATUSO 

TAPE STAT US 1 



08H j ARE 

0H*16+NDDE_ADDRESS 
OlHx-16+NODE ADDRE88 
02H* 1 6+N0»eIaDDk ESS 
03H*16+NODE_ADDkE88 
4H* 1 6+NUl>E„Ai)DR ESS 
05H*l6+NODE~ADDkE8S 
OfeH* 1 6+N0DE~ADDK ESS 
G7H*16+N0DE_ADDkEBS 
ODH* 1 6+N00E„Al>DK ESS 

0UH*16+NODfc._ ADDRESS 
I! 9 H * 1 6 + N 1) £ . _ A l> D H E S S 
QAH*16tN0DElADDRESS 
OBH* i 6* Nlii)E_ADI)K ESS 
CH* 1 6 * NODE ADOk' ESS 



WE NOT TAPE? 



FILE: TAPE„MAC:pADAMT HEWLETT-PACKARD: ThPE_MAC (c) Coleco 1V83 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Mon, 7 Nov 1983 } t : 28 



'ACE 



I) (too 

0005 
000A 
00OC 
01) 
000F 
0010 
00 14 
0015 
0016 



<0003> 


59 


IGNORE JUNK 


EQU 






3 


<0004> 


60 


datain" 


EQU 






4 


<0005> 


61 
63 


CS_IN 


EQU 






5 




j STUFF TO WRITE IN 


NIM 






<0 00B> 


64 


C READ 


EQU 






11 


<000C> 


65 


C WHITE 


EQU 






12 


<0 052> 


66 
67 
68 


C_REWJ.ND 


EQU 






82 




; STATU WRITTEN BY 


APP, 






< > 


69 


S_OK EQU 











< 1 > 


70 


S BADBLK EQU 


1 








<0002> 


71 


S NQBLOCK EQU 


2 








<0003> 


72 


S NOTAPE EQU 


3 








<0004> 


73 

74 


S„NODRIVE EQU 

i 


4 








< 000 1 > 


75 
76 


LENGTH OF 10 STATUS 
; IMPORTANT STUFF 


EQU 




1 




77 


) 












78 




DATA 


i 








79 


COMMANB_BUFFER 


RMS 






5 




80 


current'ram- 


RMB 






5 




81 


COUNT 


RMB 






2 




82- 


GO TO TAPE 


RMB 






1 




83 


MEM_PTR 


RMB 






2 




84 


CS BYTE 


RMB 






1 




85 


RAM STATUS 


RMB 






4 




86 


10 STATUS BLOCK 


RMB 






1 




87 


tape_statDso 


RMB 






1 




88 


TAPE„STATUS1 


RMB 






1 




89 


i 












90 




EXT 




MTP 


TR TRANS 




91 




EXT 




HTP. 


TR TCU 




92 




EXT 




MTP. 


TR REC 




93 




EXT 




MTP 


NIM WRITE 




94 




EXT 




CURRENT STATE 




95 




EXT 




DATA„BUFFER 




96 




EXT 




M_S1G 




97 


> 











J 



* 





FILE: TAPEJ1AC:pAi)AMT HEWLETT-PACKARD; 1AJ'E_MAC <c) Coleco 1VB3 Confidential 

LOCATION OBJECT CODE LINE tfUUKCE LINE 



Hon, 7 Nov \9iJ6 } 1 U ; 2\ 



PWCE 







99 






PKUG 








10 


• t MAIN 


I'KOCRAM HERE 




00 


BD0000 


101 


TAPE_MAC 


3 BR 


MTP TR REC 


U0 03 


25 OB 


102 






BCS 


DATA_F0R_U8 






103 


j SET 


WAKE UP 


BIT 




05 


C61B 


104 






LDAB 


#00 01 101 IB 


07 


D7il 


10b 
106 






STAB 


011H,D 


0009 


860 


107 






LDAA 


tCNTRL 


0B 


970 


108 
10V 






STAA 


CUKRl£riT_STAIE,D 


01) 


7E019E 


110 
111 






J MP 


JUST„RETURN 


0010 


D600 


112 


DATA_FOR_US 


LDAB 


CURRENT„S1ATE,D 


0012 


58 


113 






LSLB 




0013 


CEO IB 


114 






LUX 


*ttTAYE,J ABLE 


0016 


3A 


US 






ABX 




0017 


EEOO 


116 






LDX 


0,X 


0019 


6E00 


117 
118 
119 


j JUMP 


I ri £*!«* kL 


JMP 


0,X 


001B 


027 


120 


STATE_ 


TABLE 


FDB 


CONTROL 


001D 


0F6 


121 






FDB 


GET LENH 


001F 


QOFF 


122 






FDB 


G£T_LENL 


0021 


012B 


123 






FDB 


CET JUNK 


023 


0132 


124 






FDB 


geTdata 


0025 


014C 


125 






FDB 


GET CS 



BACK TO COMMAND MODE 



FILE: TAPE_MAC:pADAHI HEWLETT -PACKARD ; lAHE_hAC <c) Coleco 1983 Conl'xden t ia I 
LOCATION OBJECT CODE LINE SOURCE LINE 



Hon, 7 Nov 1783, 10:2V 



FAtiE 



c 
e 

o 

o 


D 



O 

# 



027 

027 8108 

039 2607 

002B 01) 
002C BD000Q 

002F 7E019E 



0032 


8118 


0034 


2755 


0036 


8138 


0038 


2773 


003A 


8148 


003C 


2617 


003E 


CE0 


0041 




0041 


A6FF 


0043 


A104 


0045 


260 b 


0047 


09 


0048 


26F7 



004A 202D 



04C 




04C 


860B 


04E 


OC 


004F 


BDOOOO 


52 


7E019E 


055 


8168 


057 


2607 


059 


8601 


005B 


970 


050 


7E0iyE 


0060 




060 


811>8 


62 


2715 


064 


7E019E 


67 




0067 


86C8 


069 


HDD 


06C 


2508 


006E 


BDOOOO 


071 


2503 


73 


7E019E 


076 




076 


7EU1AB 



127 


•X- X •* * * * -X- * * X- X- * X X- * -X- -X- * X- X- X- * X- * X- X- -X- X- X- x- X- X # X- * X- * * -X * * X X 


128 


x CONTROL 


STATE 




■X 


129 




130 


CONTROL 










131 






CMP A 




#MN RESET 


132 






BN£ 




NOT_RESET 


133 












134 






SEC 






135 






JSR 




MTP_NIM_WR1TE ' 


136 












137 






J MP 




JOS I ..RETURN 


138 


> 










139 


NOT.RESET 




CM PA 




*MN STATUS 


140 






BEtf 




SEND_STATUS 


141 


> 










142 






CMPA 




#MN CLR 


143 






BE« 




SEND„DATA 


144 


> 










145 






CMPA 




#MN RECEIVE 


146 






BNE 




NOI' RECEIVE 


147 


j TEST 70 


SEE 


IF COMMAND 


BOFFER - CURRENT RAi 


148 






LDX 




#5 


149 


B_TEST 










150 






LDAA 




COMMAND BUFFER-1,X 


151 






CMPA 




CURRENT_RAM-1 ,X 


152 






BNE 




DONT_HAVE„n 


153 






DEX 






154 






BNE 




B_7ES7 


155 


; OK, UE HAVE 


IT IN RAM 




156 






BRA 




SEND ACK 


157 


•> WE HAVE 


TO ! 


SPIN OP 


THE 


TAPE 


158 


DONT_HAOE„ 


.n 








159 






LDAA 




#C„READ 


160 






CLC 






161 






JSR 




MTP„NIMJ4RITE 


162 






JMP 




JOS7„RETURN 


163 


> 










164 


NOT„RECEIUE 


CMPA 




*MN SEND 


165 






BNE 




NOI-.SEND 


166 


i SEND SKATE 








167 






LDAA 




#LENGTH_HI 


168 






S1AA 




CURRENT S'lATE,D 


169 






JMP 




JUSJ_RE?URN 


170 


NOT„SEND 










171 






CMPA 




♦MNJREADY 


172 






ueo 




SEND ACK 


173 






JMP 




JUSTJVETURN 


174 


SEND„NACK 










175 






LDAA 




#NM_NACI< 


1 76 






J Sk 




MTPJJR_/? MANS- 


177 






BUS 




ER Rl 


178 






JSR 




Ml"P_'lR_7CU 


1/9 






BUS 




LRK'l 


180 






JMP 




JUST ..RETURN 


181 


ERR1 : 










182 






JMP 




RblURN_NOW 


UtS 













r\. 



C 
O 



o 



G 
G 



FILE: TAPE_MAC ; pADAHT HEWLETT --PACKARD : TAPE_MAC <c> Coleco 1983 Confidential 

LOCATION OBJECT CODE LINE BOUNCE LINE 

0079 

079 0698 

07B BD0U0G 

U07E 25 OU 

080 BDUUOQ 

0083 2503 

0035 7E019E 

1)088 

0088 7E01AB 



Hon, '.-' Now i 983 , 10; 29 



'Al-iF 



08B 



08B 


FC01B7 


008E 


DD10 


0090 


FC01B9 


093 


DD12 


0095 


BD01AC 


0098 


CEO 010 


009B 


CC0005 


009E 


DMA 


OOAO 


8688 


0A2 


9 /OF 


0GA4 


BDG17E 


0A7 


2503 


00A9 


7E019E 


OOAC 




AC 


7E01AB 


OOAF 




OOAF 


7DGO04 


0QB2 


27 05 - 


00B4 


B60016 


O0B7 


2003 


00B9 




0OB9 


B60015 


OOBC 


8103 


BE 


240A 



OOCO 


CEOOOO 


O0C3 


CC040 


0C6 


DDOA 


C8 


20 OB 


OOCA 




OOCA 


BD01AC 


OOCD 


CE0014 


00 


CCO 01 


OOD3 


DDOA 


0D5 




0D5 


EDO 166 


01)8 


2519 



184 


SEND_ACK 








185 




LDttA 




#NM_ACK 


186 




JSR 




MTP_TR_TRANS 


187 




DCS 




ERR 2 


188 




JSR 




MTP__TR„TCU 


189 




60S 




EKR2 


190 




J MP 




JUST_RETURN 


191 


ERR2! 








192 




J MP 




RETURN„NUW 


193 


j SEND OUT STATUS PACKET 




194 


SEND STATUS 








195 


j COPY THE ROM 


STATUS 


PACKET <BYTES 0-3) INTI 


196 




LDD 




S1AT_MSG_TBL - 


197 




SID 




RAM SI AT US, D 


198 




LDD 




STAT MSG TBL+2 


199 




STD 




RAM STATUS+2,D 


200 




JSR 




ASMB^STATUS 


201 


j INIT PTRS 








202 




LDX 




#RAM_STATUS 


203 




LDD 




#STAT MSG LEN 


204 




STD 




COUNT, D 


205 




LDAA 




#NM_STATUS 


206 




STAA 




CS_BYfE^D i SO 


207 




JSR 




LSSD 


208 




DCS 




ERRS 


209 




JMP 




JUST_RETURN 


210 


ERRS! 








211 




JMP 




RETURN„NOW 


212 


SEND_DATA 








213 




TST 




COMMAND BUFFER+4,D 


214 




BEO. 




CHK_DR0~ 


215 


j SEE IF DRIVE 


ONE IS 


EITHER DOWN OR EMPTY 


216 




LDAA 




TAPE„STA1"US1 


217 




BRA 




SD_2 


218 


CHK DRO 








219 


; WHAT ABOUT DRIVE 0? 






22 




LDAA 




TAPE'„STAIUSO 


221 


SD^2 


CMPA 




#8 NOT APE 


222 




BHS 




NUJ'APE 


223 


) PREPARE DATA 


FOR OUTPUT 


. 


224 


; REG X » PTR 


TO DATA 






225 


) COUNT, COUNT+1 = BYTES TO TRANSFER 


2i:'6 


j CARRY BET IF 


i.U_8T ATUS 


PKECEDES DATA, CLEA 


227 




LDX 




#DATA_BUI"FER 


228 




LDD 




#1024" 


229 




STD 




COUNTED 


230 


> 


BRA 




SD_1 


231 


NO_FAPE 








232 




JSP 




ASMB STATUS 


233 




LDX 




#JO„St'AlUS_BLUCK 


234 




LDD 




#1 


2^'> 5 




S f D 




COUNT ,D 


236 


SD_1 








237 




JSR 




LE'V8 ra SEND_.DAT B 


238 




IOCS 




EkR4~" 


239 


j IT GOT SENT I 


3K, BUT 


IF 


WE SENT OUT DATA WI 


24 U 


j COMMAND BUFFER SO WE DON' f EVER RESEND IT 



RAM STATUS AREA 



THAT CS GETS CLEARED AFTER COMMAND IS SENT 



OTHERWISE 



CONDITIONALLY INCkEASE BLOCK SIZE 



PUT STATUS BYTE TOGETHER 



A BAD CS, THEN BASH 



G 



o 
o 
c 
c 



FILE: TAPE_HAC;pADAMJ HEWLETT -PACKARD : TAI'L_MAi; (c) Coleco 1903 Confidential 
LOCATION OBJECT CODE LINE BUUKCE LINE 



non 



Nov 1903, 10:30 



PACE 



QQDA 7D0004 
00 DO 2705 

DP B60016 
0OE2 2003 
0E4 

0OE4 B6001S 
00E7 StOi 
0OE9 2605 

OOEE 86FF 

ED B70 09 

UOFO 

O0F0 7E019E 

OOFS 

Q0F3 7E01AB 



241 1ST CUMMAND_BUF*-Lfc+4 > D 

242 BEU CS_CHK0 

243 } SEE IF DRIVE ONE IS EITHER DOWN OR EMPTY 
^44 LDAA ('hPE_S1'ATUS1 

245 BRA CO_CHK„COMN 

246 CS CHKO 

247 ; WHAT ABOUT DRIVE 0? 

248 LDAA fAPE_BTArUSO 

249 CS CHK CUMN CMPA *B BADBLK 

250 ~ " BNE OK_CS_SENT 

251 ) MANGLE COMMAND^BUFFER BEYOND RECOGNITION 

252 LDAA *25S 

253 STAA CURRLNT_RAM+4 

254 OK_CS SENTs 

255 ~ J MP JUST RETURN 

256 ERR4i 

257 JMP RETURN NOW 



O 

c 
c 
c 
c 
c 
c 
c 
c 
c. 






c 

C 
C 
O 

o 

G 
C 

c 

c 

o 
c 



FILE: TAPE_fiAC;pADAMT HEWLETT -PACKARD : 7rtP[-„MAC <c) Coleeo lVfcJi'J Confidential 

LOCATION OBJECT CODE LINE SOURCE LINE 

2 5 9 * * * * * x * -x * * x x x * x * x x * x x x x x x x x x- x x x x x x x x x x x x * x x 
dhil * GET LtINCl'H_HI STATE * 

2 6 i x X X X X X X X X X X * X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

OOF 6 262 GET_LENH 

0OF6 970A 263 STAA COUNTED 

0F8 8602 264 LDAA *LENGTB_LG 

QOFA 970 265 STAA CURNENTJ31 ATE, D 

00 FC 7E019E 266 JHP JUS [RETURN 



Hon , 7 Nov 1 V f J 3 j. 10:30 



PACE 



c 

G 
G 



G 



G ! 

o 
o 
e 
o 

G 

C 

/-\ 

c 
c 
c 

G 
C 
C 

G 
G 



FILE; TAPE_MACipAI)AMT HEWLEII -PACKARD : "lAPE_MAC (c) Coleco 1V03 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 

2 6 8 x- * * x- x- * * * * -x- * x- x- x- * * x x- x * x x x x x * x x * x x * * x x * x x x x x x x- 

269 * GET LENGJH_LO STATE * 

270 x 'X -x x X- x x x- * * x * x x x x x x * x * x x x * * x x * x x x x x x * x x x * x x x- 

271 GET„LENL 

272 STAA COUNI+t,D 

273 t 5 BYTE COMMAND PACKET COMING IN? 



hon, 7 Nov 198:*, 10 :3U 



PACE 



0OFF 

0FF 97 OB 

0101 8105 
0103 2604 

0105 960A 
0107 2710 

0109 
0109 8603 

01 OB 9700 

0101) 8601 
01 OF 970C 

0111 CC0000 
0114 DDOD 

0116 7E019E 

0119 

0119 8604 
011B 9700 

011D 7FQ00C 

0120 CC00O0 
0123 DBOi) 

0125 7F0 0F 
0128 7E019E 



274 


CMPA 


275 


BNE 


276 




277 


LDAA 


278 


£(El>J 


279 




280 NOT 5 BYTES 




281 


LDAA 


282 


ST A A 


283 




284 


LDAA 


285 


SIAA 


286 




287 


LDD 


288 


SfD 


289 




290 


JMP 


291 




292 CMI>„C0M1NG„IN 




293 


LDAA 


294 


STAA 


295 




296 


CLR 


297 




298 


LDD 


299 


SIT) 


300 




301 


CLR 


302 




303 


JMP 



NOI'JSJBYTES 

COUNTED 

CMD COMING IN 



#1GN0RE_JUNK 
CURRENT_STATE,D 

#1 
GO„rO.JAPE,D 

*DATA BUFFER 
MEM_PTR,1> 

JUSI RETURN 



#DATAIN 

CUR RENT_S1 ATE, D 

GU_IG„TAPE,D ' 

#COHHAND_BUFPER 
MEM_PTR,D 

CS_BYTE 

JUS>! RETURN 



G 



FILE: TAPE_HAl..!pAl>AHI' HE WLET f -PACKARD J TAPE„MAC ( c > Coieco i'/ti'S Confident la I 
LOCATION OBJECT CODE LINE SOURCE LINE 



V Nou 198v 



lU :30 



'AGE 



012B 

012B C604 
01 2D 070 

OtSF 7F00GF 



3 tt * X X -X * * X * * * X X * X X * X * X X X X X X X X X X X- X X X X X X X X X- X * X- X X 
306 * GET JUNK STATE * 

30 7 X X- X X X X X X X X * X X X X X X X * X X X X X * X X * X * X X X X * X X X X X * X X- 



3t>8 } IGNORE THIS BYTE , 

30V GET_JUNK 

310 

311 LDAB 

312 STAB 
313 

314 CLR 

315 



BUT SET UP FUR SUCKING IK 



♦DATAIN 
CURRENT_STAf£,D 

CS BYTE 



U 



^J 







c 
c 
o 
e< 

o 
c 
o 
c 

o 
o 
o 

c 
o 
o 
c 
u 
c 

G 

o 



FILE; TAPE_MAC:pADAMT HEWLETT -PACKARD ! lAPE_hAC (c) Coleco 1V83 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Hon, 7 Nou 1VC3, 10:30 



'ACE 



10 



0132 




0132' 


DE0D 


0134 


A700 


0136 


08 


0137 


OF 01) 


0139 


98QF 


013B 


97 OF 


01 3D 


DCOA 


013F 


830001 


0142 


DD0A 


0144 


2658 


0146 


8605 


0148 


9700 


01 4 A 


20S2 



317 
31 
319 
320 
321 
32^ 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 



■XX -X- X- X- X X- -X- * -X- X- X- -X X X- X X X X * X X X X X X X X -X- X X X X * X X X X X X X X X 

x GET DATA IN STATE * 

* X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

GET „ DAT A 

LDX HEM_PTR,D 

STAA G,X 

1NX 

SIX hEM_PTR,D 

LOR A Cfd 1<YTE,D 

8TAA cOYTE,D 

LDD CUUNI,D 

SUBD *1 

STD COUNTED 

BNE J'USr„RETURN 

LDAA *C8„IN 

STAA CURRENT STATE, D 

6RA JUST RETURN 



j NO MORE 



ALL DONE AT 



O 



c 
c 
o 
c 
c 
c 
o 
c 
e 

C 

•c 

C 
G 
C 
C 
C 
C 



FILE.) TAPEJIACipADAMT HEWLETT-PACKARD: 7APfc_MAC <c> Coleco 198JS Confidential 

LOCATION OBJECT CODE LINE SOURCE LINE 



014C 

014C C60 
014E D700 
01 SO 91 OF 



Hon, 7 Nov 1V03, 10)30 



PAGE 11 



0152 2703 
0154 7E0 067 



0157 ?6QC 

0159 3603 
01 SB 7E0 79 
015E OC 
013F 860C 
0161 BDOQOQ 

0164 20F5 



336 




337 


* GET 


.;heck 


BUM 


STATE 


X 


33 8 


* X- X X- X -X- * * X * X X X X X- X -X- X- * X X X X X X X X X X X X X X X X X X X X X X X X 


339 


GET_CS 










340 








LDAB 


#CNTRL 


341 








STAB 


CURRENT STATE, D 


342 








CMP A 


CS„BYTIE,D 


343 


X 






BNE 


SEN0„NACK 


344 








BEG! 


GCS T 


345 








JMP 


SENI)_NACK 


346 


} WE WIN- CHECK 


SUH IS 


OK! 


347 


; TELL 


GUY 


ro 0UHP IP 


rAPE (IF NOT CMD PKT> 


348 


GCS_t 






LDAA 


GU 10 TAPE,!) 


349 


X 






BEU 


SEND„ACK 


350 








BNE 


GCS 2 


351 


GCS_SA 






JHP 


SEN1)„ACK 


352 


GCS_2 






CLC 




&S6 








LDAA 


#C WRITE 


354 








JSR 


MTP N1M WHITE 


355 


X 






BNA 


SEND_ACK 


356 








BHA 


GCS SA 



; SINCE WE DONT WANT THIS ON TAPE, 
; THIS HUST BE A COMHAND PACKET. 



c 
o 



o 



o 



FILE; TAPE_MAC:pADANT HEWLETT-PACKARD: TAPE__MrtC <c) Coleco 1983 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Hon , 7 Nov 1983, t t 31 



'AGE i; 



,*~v 






358 


C- 






359 
360 


<--\ 


0166 




361 


V.' 






362 
363 


-> s 


0166 


86B8 


364 
365 




0168 


BD0O00 


366 


f—\ 


016B 


2530 


367 








368 
369 


■^N 


016D 


960A 


370 




016F 


BDOOOO 


371 




0172 


2529 


372 


O 






373 
374 




0174 


960B 


375 




0176 


BDOOOO 


376 


D 


0179 


2522 


377 
378 




017B 


7F0OOF 


379 


w : 






3B0 




017E 




381 


_. 


1 7E 


A60 


382 


-.-' 


0180 


BDOOOO 


383 




0183 


2518 


384 








385 


-J 


0185 


980F- 


386 




01 07 


97 OF 


387 




018? 


03 


388 


J 


018A 


DCOA 


389 




QI8C 


830001 


390 




018F 


DDOA 


391 


■-'" 


0191 


26EB 


392 
393 




0193 


960F 


394 


J 


0195 


BDOOOO 


395 




0198 


2503 


396 




019A 


BDOOOO 


397 


o ; 


019D 




398 




019D 


39 


399 
400 


--'" 






401 
4 02 




019E 




403 









404 




G19E 


7D00O0 


405 




01A1 


2708 


406 









407 




01 A3 


860A 


408 




1 A5 


9711 


409 


o 


1 A7 


9611 


410 




01A9 


9612 


411 


* 


01AB 


3B 


412 












; SUBROUTINE TO DUMP DATER OUT ON NET 

LETS_SEND_DATA 

; ASSUMES PTR IN X, BYTES TO TRANSMIT IN COUNT, COUNT+1 

j FIRST, SEND COMMAND TO MASTER 

LDAA *NM_SEND 

J8R MTP~]R_TRANS 

BCS ERR3 

; NEXT, HIGH BYTE OF TRANSMISSION LENGTH 
LDAA COUNT, D 



j NEXT, LOU BYTE 



LSSD 



jsr 


MTP_TR_TRANS 


8CS 


ERR 3 


LDAA 


COUNT+1, D 


JSR 


MTP_TR_TRANS 


BCS 


ERR3 


CLR 


CS_BYTE 


LDAA 


0,X 


JSR 


MTP__TR_TRANS 


BCS 


ERR3 


EORA 


CS BYTE,D 


STAA 


CS_BYTE,D 


INX 




LDD 


COUNT, D 


SUBD 


41 


STD 


COUNT, D 


BNE 


LSSD 



j LASTLY, SEND CHECK SUM 

LDAA CS BY1E,D 

JSR MrP_TR_TRANS 

BCS ERR3 

JSR MIP_fR_rCU 

ERR 3; 

RTS ; ALL DONE HERE 

-X- * * * -X- * -X- X -X -x- X- * X- * * -X- X X- X -X- X- X- X- X X X- * X- X- X- -X- X * X- * -X- -X- X # X- * X- -X X- X * 

x THE END IS NEAR * 

X- * * * X X * X- * X- -X- X- * X X X X X * X- * X- * X- X X X- X- X X- * X- X- X X * X X -X- X- * X X x- * X 

JUST R El URN 

i IF WE'VE JUST TOLD THE APP TO DO SOMETHING, DISABLE REG INTRPTS. 

TBI' M SIG,D 

BEQ RETUNN_NOW 
i DISABLE I NTH PI'S 

LDAA #0AH 

S'I'AA 01 1H ; CLEAR CHE ENABLE BIT 

LDAA 11H j CLEAR ANY PENDING INTKPT 

LDHA 012H 
RETURN NOW RTI 



C 

o 
c 

G 
C 
O 

o 
o 
o 

•c 
c 

C 



FILE! TAPE_MAC:pADAMT HEWLETi -PACKARD : 1AHL„hAC (c) Coleco 1983 Confident ial 
LOCATION UBJEC'f CODE LINE SOURCE LINE 

X- X- x- X- * x- * X * * x- X X- X X- X- * * * X- X * X * X- X- X- X X- X X X X- X X X X X- X X- X- X X X X- X X X- X X X X- X X- * X X * X- * X X- X- X X X 

•x- I HIS GUY ASSEMBLES 1APE_S - I ATUSOit TOGEHER INTO IO„S f A i US_BLUCI< x 

X- X- X- X- X X X * X X X- X- -X X X X X- X X- X X X- X X * X X X- X X X * X * X- * X * x- * x- X- X- * X X- X X X X- X- X- * X X X X- X X X X * X X- X X- 

ASMB_STAIUS 

LDAA TAI'E„STA'1U81,D 

LSLA 

LSLA 

LSLA 

LSLA 

UK AA 

SI AA 

RYS 



Hon, 7 Nov 1V83, 10:31 



f'AUfc. 13 







414 






415 






416 


01AC 




417 


01 AC 


9616 


418 


U1AE 


48 


419 


01AF 


48 


420 


01 BO 


48 


421 


01 SI 


48 


422 


U1B2 


9A1S 


423 


011*4 


9714 


424 


1 B6 


39 


42S 



TAPE„STATUSO,» 
IO_STATUS_BLOCK,D 



c 
o 
c 
o 
c 
o 
o 
# 
o 



V... 

FILE.: TAPE_MAC:pADAMT HEWLETT -PACKARD : 1APE_MAC <c) Coieco 1V83 Confidential Mon, ? Nov 1V83, 10:31 FACE 14 

^' LOCATION OBJECT CODE LINE SOURCE LINE 

427 * * * * x x- * * x- * -x- * -x- -x- x * * x * x- x * x x x x- x x x x * x x x x x -k x- x x -x x * x * x * x x * x * x x x x x- x x 

G? 420 x x 

42V * DATA TABLE NAME; * 

^ 430 x. * 

( -" 431 x STAI__hSG„TBL * 

43S x ' . x 

^ 433 * DESCRIPTION: * 

v.- 434 x x 

435 x THIS TABLE CONTAINS THE PACKAGE THAT THIS NODE * 

436 x BENDS'' fO THE HASTEN IN RESPONSE TO I HE Sf'ATOS x 
C 437 x COHHAND. * 

438 x x 

.^ 43? * INDEXED BY i * 

vi. 440 x . x 

44 t x A LOOP COUNTER * 

442 * ' * 

(■..,' 443 -XKX#X-X***XXX*XX*»*tXXXX»XXXXXXXX»XXX**X»XXX*»X*X-X»*X-XX*****X- 

<01B7> 444 STAT MSG TBL: EQU * 

01 £17 88 445 FCB 080H+NODE_ADDR£SS {STATUS . OR . ADDRESS 

O 01B8 00 446 FCB O00H jMAX MSG LENGTH <1K LOU BYTE) 

01B9 04 447 FCB 04H jMAX MSG LENGTH (HIGH BYTE) 

01BA 01 448 FCB 001H ; TRANSMIT CODE=*BYTE_MODE. OR , RESERVED 

v.- 01BB 44V FCB OH • ' t STATUS FLAGS 

<0005> 450 S1AT_MSG„LEN] EQU ■ *-STAT_MSG_TBL 

^_- Errors= 

W 

C 

o 
c 

o 
o 

G 
# 



o 
e 

o 



o 



FILE! TAPE_HAC:pADAMT CROSS REFERENCE TABLE 

LINE* SYMBOL TYPE REFERENCES 



PAGE 15 



417 ASMB STAIUS P 

14V Et_TESr P 

218 CHK ORO P 

292 CMD^CUMNG.IN ■ P 

56 CNTRL A 

79 COMMAND_BUFFER D 
130 CONTROL P 

81 COUNT D 
84 CS BYTE D 

246 CS~CHK0 P 

249 CS„CHK_COMN P 

61 CS IN A 

80 CURRENT RAM 

94 CURRENT STATE 

64 C READ 
66 C REWIND 

65 C_WRITE 
60 DATA IN 

95 DATA_BUFFER 
112 DATA„FQR_US 
1S8 DONT_HAVE IT 
181 ERR1 
191 ERRS 
398 ERR3 
256 ERR4 
210 ERRS 
348 GC5 1 
352 GCS_2 
351 GCS_SA 

320 GET_DATA 

309 GET JUNK 

262 GET_L£NH 

271 GET„LENL 

82 GO TO fAPE 
59 IGNORE_JUNK 
86 IG_STAIUS_BLOCK D 

403 JUST RETURN P 

5/ LENGTH HI A 

58 LENGTH LO A 

75 LENGTH OF__IQ_Sr A 

361 LETS_SEND_DATA P 

381 LSSD P 

33 MEM_PTR D 

40 MN ACK A 

43 MN_CANCEL A 

41 MN_CLR A 

45 MN_NACK A 

46 MN READY A 

42 MN~RECEIVE A 

38 HN RESET A 

44 HN_SEND A 

39 lihf STATUS A 
93 «TP NIM WRITE E 
92 MTP"('«_KEC E 
91 hTP„TR__TCU E 
90 . .MTP~TR~ TRANS E 



200,232 

154 

214 

278 

107,340 

29,150,213,241 ,298 

120 



29,150,213,241 ,298 

120 

204, 229, 233, 263, 272, 277, 327, 329, 370, 375, 389, 391 

206,301 , 31 4, 325, 326, 342, 379, 386, 387, 3y 4 

242 

245 

332 



D 30,151,253 

E 1 08 , 1 1 2 , 1 68 , 265 , 282 , 294 , 31 2, 333 , 341 

A 159 



353 

293,311 

227,287 

102 

152 

177,179 

1 87 , 1 89 

367,372,377,384,396 

238 



A 

A 

A 

E 

P 

P 

P 

P 

P 

P 238 

P 208 

P 344 

P 350 

P 356 

P 125 

P 124 

P 123 

P 121 

P 122 

D 285,296,348 

A 281 

31,233,424 

110,137,162,169,173,180,190,209,255,266,290,303,330, 

167 

264 

32 

237 

207,392 

288,299,321,324 



334 



142 

171 

145 

131 

164 

139 

135,161,354 

101 







178,188,377 

1 76 , 1 86 , 366 , 37 1 , 376 , 383 , 395 



FILE: TAPE_HAL'!pADAHT 



CROSS REPERENCE TABLE 



PAUL 16 



L' 



LINE* 

96 
49 

52 

51 

48 

37 

2 BO 

164 

139 

170 

231 

254 

85 

412 

184 

212 

174 

194 

120 

450 

444 

70 

71 

73 

72 

69 

101 

87 

98 



SYMBOL 

M„SIG 

NM„ACK 

NM„CANCEL 

NM_NALK 

NM_SEND 

NM STATUS 

NQDE„ADDRESS 

NOT 5 BYTES 

NOT RECEIVE 

NQTJtESET 

notIsend 

NO fAPE 
OK CS SENT 
RAM_S?A1"US 

return now 

SD 1 
SD 2 
SEND ACK 
SENDJDATA 
SENl>„NACK 
SEND STATUS 
STATE IABLE 
STAT_MSG_LEN 
STAT~HSG TBL 
S BADBLK 

s_noblock 
s nqdrive 
sInotape 

S OK 

TAPE HAC 
TAPE_STATUS0 
TAPE S1AFUS1 



TYPE 

E 
A 
A 
A 
A 
A 
A 
P 
P 
P 
P 
P 
P 
D 
P 
P 
P 
P 
P 
P 
P 
P 
A 
P 
A 
A 
A 
A 
A 
P 
D 
D 



REFERENCES 



405 
185 



175 

365 

205 

38 , 39 , 40 , 41 , 42 , 43 , 44 , 45 , 46 , 48 , 49 , 50 , 5 1 , 52 , 445 

275 

146 

132 

165 

222 

250 

197,199,202 

182,192,211,257,406 

230 

217 

156,172,351 

143 

345 

140 

114 

203 

196,198,450 

249 



221 

33 

34,220,248,423 

35,216,244,418 



•J 



c 
c 
e 
c 
c 
c 
c 
o 
c 
o 
o 
c 
c 

G 
O 
G 
G 



FILE; DJITPspADAMT HEWLETT-PACKARD ; D„M I P (c> Uoleco.1983 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Hon, 7 Nov 1903, 10 : 3£ 



'ACL 1 



1 A 6S01 A 

3 NAME "Rev 00 

4 

5 I)e_D_MTP MACRO 

6 

7 

8 Project: NET, 83--1Q1 

9 



DLS A 

} Header Rev . 4 
,COIO Ede i) MTP 



1> M T l : 



Rev History 
Rev. Date 



to mi 

11 8? 

12 m 

13 f§t 

14 mt 

15 
16 
17 
18 
IV 
20 
21 
22 
23 
24 
2b Ede D MTP MEND 



I> L. £> 

fe fejf fe:i fei^ ^feSfei ^ j«^ trX t^fe* fc-4 tei *;* feJ 



Na«e 



DTT 



1 23jul 

13juilB15 DLS 



Change 

MODS FOR TAPE 
Initial Pseudo code 



G 
G 



O 



c 
c 
c 

c 

€ 
C 
O 

c 

o 

Q 
G 
G 
O 

o 



c 



FILE; D„MTP:pADAMT HEWLETT-PACKARD: U_M 1 P <c) Co.Leco 1V03 Confidential 

LOCATION OBJECT COPE - . LINE SOURCE LINE 

27 Pseudo_code_D_MTP HACRO pseudocode Macro area 

20 . GQfO Ep_i>_(1i'P 

2V 

30 

3t 

32 Ep_D_MTP HEND 



Hon, 7 Nov 1VB3, 10:32 PACE 



G 
U 

G 
# 

G 



FILE: 0_MTP spADAMT HEWLETT-PACKARD : L>_MTP <c) Coleco 1V83 Confidential Hon, 7 Nov 1V83, i : 3£ PAGE 3 

C LOCATION OBJECT CODE LINE SOURCE LINE" 

3 A X X -X- -X- * X- X -X * X X X- * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

v, 35 * * 

36 x MODULE NAME: * 

37 x * 
v 38 * DJ1TP * 

3V x * 

4 * * 
3 41 * FUMCflON(S) i * 

42 x x 

43 x 1 . TO DECLARE THE DATA AREA "NIM„BLUCI< . " * 
I. 44 x £. TO DECLARE THE Dl„MODE_WORD . * 

45 * * 

46 x NOTES i * 
L; 47 X X 

40 x 1 . NIM BLOCK IS USED AS THE INTERFACE BETWEEN 1 HE * 

^ 4? * MEDIUM ACCESS CONTROLLER AND THE RESIDENT APPLICATION x 

D 50 * PROGRAM. * 

51 x * 

52 x 2. THE INSTALLER IS RESPONSIBLE FOR LOCATING THIS DATA » 
i; 53 x MODULE SO THAT THE LAST UYI'E ENDS AT LOCATION 127 (DEC). x 

54 « x 

55 x * 
L . 56 x x 

57 x*xxx***xxxxk*xxx**xxkxx**xxxxxx*xxxx*x**xx*xx*xxxxxxxxxxxxxxxxx 



* 



c 

c 



FILE: D_HTP:pADAMT HkWLETT-PACKARDi DJ-HP (c) Co lee o 1983 Confidential. 

LOCATION OBJtXT CODE LINE * SOURCE LINE 

59 



Hon, 7 Nou 1983, 1 : 32 PAUL 4 



P 
Q 

O 

c 

o 
o 
c 


G 
O 
C 

c 
o 

G 
O 
G 
G 



G 



FILE: D_MTPspADAMT HEWLETT-PACKARD: D_HiP <c) Loleco 1903 Confidential Hon, 7 Nov 1903, 10i3£J PAGE 

^ LOCATION OBJECT CODE LINE SOURCE LINE 

) 







0000 
0001 



^ 



i 

J 



61 






GLB 


CURRENT S1A1E 


62 






GLB 


D_fUP 


63 






GLB 


dT MODE WORD 


64 






GLB 


NIM_BLOCI< 


6b 






GLB 


CNF G.; WORD 


66 






GLB 


A BIG 


67 






GLB 


A DAI A 


60 






GLB 


M_S1G 


69 






GLB 


M~DA1A 


70 * 










71 






GLfc 


COONT 


72 






GLB 


NODE ADDRESS 


73 






GLB 


CS WORD 


74 
7b 
76 






GLB 


DA?A BUFFER 






DATA 




77 D_ 


HTP: 








70 K««***K*«KK*M*.)(-#****»*«if**«**#**«»*»**i#*#*«««#«»*K**«*X'******K 


79 * 








* 


80 * 


DATA 


UORDi 




■» 


81 * 








* 


82 * 


Dl. 


.MODE„WORD 


X 


83 * 








* 


84 * 


FUNCTION: 




x 


85 * 








X- 


86 * 


CONTAINS 


THE STATE OF- SEQUENCER PROCESSING * 


07 * 








X 


80 K 








X 


89 * 








X 


90 ***X-*****K#*KX*«»K»««»»«.j(«*«)(*Jt**)(*K*#«)«»#j(*#j(*j(**)()(*J(*x**«)i'X** 


91 CURRENT. 


.STATE 


RMB 


1 


92 Dl 


MODE 


WORD 


RMB 


1 



c 
o 
c 
o 

o 
o 
o 

I.' 

c 



FILE: D_hTP.spADAMT HEWLETT-PACKARD; D„M I P 
LOCATION OBJECT CODE LINE SOURCE LINE 



(c) Coleco \9B\i Confidential 



Man, 7 Nov 190:5, 1 : S6 



'AGE 



0002 
04 



<00O8> 



94 

95 

96 * 

9? COUNT 

90 CS_W0R1> 

99 NODE_ADDRESS 
100 
101 INCLUDE I„N1M 

+ x- X * * -x- -X- X X- * X X X X * * X * X * * X X X X X X * X X X X X X X X X X X X X X X X X K X X X X X * * X X- X X X X X X X X * X X 



RMB 


2 


RiiB 


1 


EQU 






■+• X 


















X 


+ X 










HIERARCHY 


CHAR! 




X 


+ X 












OF 






X 


+ * 








MEDIUM 


ACCESS 


CON'l ROLLER 




X 


+ X 












(hAO 






X 


+ -h 


















X 


+ X 


















X 


+ X 


















X 


+ X 












<MAC> 






X 


+ X 












1 






X 


+ X 

+ x 

+ X 












1 






X 




<TR> 








<NIM> 




<ACM> 


X 
X 


+ X 




1 








1 




1 


tt 


+ X 


+— 


— + 


-+ 






1 




+ 


X 


+ * 


<TRANS> <REC> 






1 




<SEQ> 


X 


+ X 
4* X 






+ 

1 






I 






X 


+ X 












1 




X 
X 


+ X 






<UR1TE> 






<READ> 




X 


+ X 


















■X 


+ X 
+ X 


















X 


-*• X 














1 




1 x 


+ X 














< EVEN r_P ROC) 




<RESP>x 


+ X 


















X 


+ X 


















X 



+ X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 



<J 



u 
m 
u 



c 
c 



FILE: D_MTP spADAMT HEWLET F-PACKARD : D_MTP (c) Coleco 1V03 Confidential Hon, 7 Nov 1903, 10:33 PAGE 

C LOCATION OBJECT CODE LINE SOURCE LINE 

+ X- X- * X * * X- X- X * * X x X * * * X * * -x- * * X- * X- * X- X- X- X X * -X- X * * * * X X- X * X * X- -X- X X X- X X X X X X X X * X- X- X * X- x 

C + x- INTERFACE MODULE DESCRIPTION x 

■*■ * * 

•*• * * 

+ x NAMEt t * 

+ * x 

+ x I_NIM * 

+ x * 

+ x FUNCTION! * 

■t- X » 

C +■ x TO DEFINE THE INTERFACE BETWEEN THE HAC AND APPLICATION * 

+ x WI1HIN A NODE. EACH AND EVERY NODE (WHERE A PRINTER * 

+ x OR KEYBOARD IS AN EXAMPLE OF A NODE) CONSISTS 01 TWO * 

O + x PARTS! DAN APPLICATION PART, I.E., THE SOFTWARE THAT * 

+ x HANDLES THE NODE'S REASON FOR EXISTENCE, AND 2) A MAC * 

+ x PART, L,E,> THE SOFTWARE THAT INTERFACES TO THE NETWOKK , x 

O + x * 

+ x DESCRIPTION: * 

■f x * 

C + x A BLOCK OF MEMORY WILL BE SHARED BY THE MAC AND APP , * 

+ x WHEREIN DATA AND CONTROL SIGNALS WILL BE PASSED BACK * 

+ x AND FORTH BETWEEN THE TWO. A DI AURAM OF THIS BLOCK * 

C + x (REFERRED TO AS NIM_BLOCK )- FOLLOWS 5 * 

-t- X * 

+ x NIM_BLOCK . * 

(_.'? + -x + + x 

+ x I HJ1G I A(R/RESET>, M(W)} x 

+ x + + * 

C + * f MJ)ATA i A<R/RESET>> M(W)} * 

•j- x + + * 

+ XfcXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

o 
c 
o 
o 
o 
c 
o 
u 
# 



rx 



FILE: DJITPspADAMT HEWLETT-PACKARD: DJ1TP <c> Coleco i'/03 Confidential Hon, '/ Hoy 198,3, 10:33 PAGE 8 

LOCATION OBJECT CODE LINE SOURCE LINE 

+ X- -X- X X X X * X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X » X X X- X X * * X X X X X X X X X X X X X X X X X X X 

-t- X X 

+ * DATA ELEMENT DEFINITIONS; * 

■i X X- 

-f X ■ * 

+ x M_SIG: * 

•*• x x 

+ * 0- NQ SIGNAL <IDLE>. * 

+ * 17 0- A COMMAND IS WAITING FOR THE APPLICATION 

+ x 2S5- RESET x 

+ x x 

+ X X 

+ x M_DATAs x 

+ X X 

+ X .X 

+ * 11- READ FRUM TAPE x 

+ x 12- WRITE TO TAPE x 

+ * 'R '-REWIND THE TAPE TO THE LEADER * 

+ x x 

+ X X 

+ x NOTES I * 

+ x 1. Hi* MAC SIDE OF NODE. * 

+ x x 

+ **************X ********** ********* ********* *********** X****XX-X*XX 



J 

p 



u 
o 



FILE I D„MTP:pADAMT HEWLETT-PACKARD i D_MfP (c) Coieco 1V03 Confidential lion, 7 Nov 1VB3, 1 Q s 33 PAGE. 

LOCATION OBJECT CODE LINE SOURCE LINE 

+ -x- X- * X- * X * * * -X- X- X X X- -X- x- X X- * X X * X- * X * X- X X- X- X- X- X- X X X- -X- X X * X X- X * X X X X * X X X X X X X- X * X- * X X X- X X 



0005 
0005 
0005 
0005 

0005 
0006 



0000 
Errors* 5 



+ 


X 






X- 


+ 


X- 


NOTES 10 INSTALLER 01- THIS HAC/APP i 


X 
■X 


+ 


X 
•X- 


1 , 


THE APP IB RESPONSIBLE FOR INITIALIZING 


ALL 01- RAM. * 

•X 
STATUS REG AT * 


■t- 

+ 


X 
■X 


2. 


THE APP MUSI INITIALIZE THE CONTROL AND 


+ 


X- 




LOCATION 0011 . 


X 


■i- 
+ 


X- 
■X 


3. 


THE DIJiODEJdORD MOST BE SET TO ZERO AT 


PWK UP BY THE * 


+ 


* 




APP . 


X 


+ 


X 






X 


+ 


■X 
X 
•X* 


4. 


THE NIM_BLGCK WILL END AT ADDR 127. 


X 
* 


+ 


l***********«X«**#»****««****#**«*#**«*#*»***XX*)t*«X**X***»*)(*K# 


102 


NIH_BLOCK: 




103 


CNFG WORD RMB 




104 


A_ 


SIG 


. RMB 




105 


A_ 


.DATA 


RMB 




106 










107 


H 


SIG 


RMB 1 




lOt) 


K 


>ATA 


RMB 1 




109 










t to 






COMN 




111 


DATA_fiUFFER RHB 1024 





FILE.! D_MTP:pAl>AMT CkQSS RLI-LRENCL TABLE PAUL 10 

LINE* SYHBOL TYPE REEtRENCES 



O 

G 
G 

G 

e 
o 

G 
G 
G 
C 
G 
G 

G 
G 
G 
• 
G 



105 


A DATA 


D 


67 


104 


A~SIG 


D 


66 


103 


CNFG WORD 


D 


65 


V7 


COUNT 


D 


71 


98 


CS WORD 


D 


73 


91 


CURRENT STATE 


D 


61 


92 


Dl MODE WORD 


D 


63 


111 


DATA„BUFFER 


C 


74 


77 


D MTP 


D 


62 


108 


M_DATA 


D 


69 


107 


M SIG 


D 


68 


102 


NIH BLUCK 


D 


64 


99 


NODE ADDRESS 


A 


72 



FILE: MTP_iR_RE:pADAHT HEWLEn-PACKARD : M'IP„1R_REC <c) Coleco 1V83 Confidential Hon, 7 Nov l</83, 10:34 PAC 

LOCATION OBJECT CODE LINE SOURCE LINE 



O 



1 A 6801 A 

3 NAME A Rev 04 - RPD A 

4 

5 De hTP_TR_REC MACRO ;Header Rev . 4 

C, 6 .GOTO Ede_MTP„TR_REC 

7 

8 Project: NET, 83-101 
C 9 

~ 1 1 ■ S* ^ 

C. 12 m mtp tr re:c X>!...B s& 

13 St 3$ 

14 mmmmmmmmmmmmmmmmmmmmmmmmmmmmm^ 

15 ) 

16 Rev History 

17 Rev. Date Name Change 

C' 10 4 20juillSi5a RPD added read of control/status to reset RDRF 

19 3 20jul755p RPD removed LIST directives 

20 2 1VJO12104 JIM Printer MAC started, 

G 21 1 I3jul750a RPD converted pseudo code to 6801 code 

22 12JUL1305 DLS Initial Pseudo code 
23 

C 24 Ede_MTP_TR_REC MEND 

c 
c 

c 
c 

c 
c 
c 
c 
c 
o 



o 







FILE.: HTP_TR_RE:pADAH7 HEWLETf -PACKARD : HTH_TR_REC <c> Co'ieco 1V83 Confidential Hon, 7 Nov 1983, 1 : 34 PAUL 

LOCATION OBJECT CODE LINE SOURCE LINE 



O 



O 



_ 2 6 x- * * X X -X- -X- * * * X * * * -X- * X- X X- x- x -x- * * * * * x * x X * * * * X X * X x- x x X X- X- X- X X X # X * * X- X- X X X X X X * X- X 

O 27 x x 

28 * hODULE NAME) * 

29 x -x 

30 * MTP 1R REG * 

31 * " x 

32 * INPUTS! * 
C 33 * * 

34 x- NET BYTE IN (LOCATION 12) * 

33 * DlJlUDEJJGRD * 
36 * * 
6? x FUNCnON(S) ! * 
38 * * 

O 3V * 1, TO GET A BYTE FROM THE NETWORK, * 

40 * , * 

^ 41 * OUTPUTS: * 

(.• 42 * * 

43 x NET BYTE IN < REG A) * 

44 « TOKEN I CARRY SET = BYTE FOR THIS NODE. * 
U 45 X CARRY CLR = NOT FOR THIS NODE. » 

46 * ' * 

A? * CALLS! * 

V 48 * * 

49 x NONE. * 

50 x x 
O 51 x CALLED BY ! * 

S'-* x • * 

53 x MTP_ACH_SEQ * 

(..'•' 54 x x 

55 x NOTES.! * 

56 x x 
O 57 x NONE. * 

58 x * 

5 V X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

G 

c 

c . ' 

c 

^ . ■ ■ 

o 
o 
# 

o 



FILE; MTP_TR„RE:pADAMT HEWLETT-PACKARD; HTH_TR_REC (c) Coleco 1V(J3 Confidential Mori, 7 Nov 1983, 10:34 PAGE 

O LOCATION OBJECT CODE LiNE SOURCE LINE 



6 1 X X X X X- * X X X X X X X X X X X X X X X X X X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

62 x x 

63 x PSEUDG CODE! * 

64 * x 

65 x MTP_1R_REC: * 

66 x x 
6? x CARRY=SET) t * 

C 60 * RE0__A=HEMU2>; * 

69 x IF D1_MQDE_WURD<> CONTROL * 

70 x THEN * 

71 x GOTO REC RTS; /* RECEIVING DATA MODE */ * 

72 x ENDIF; " * 

73 * . * 

x 

X 



o 
c 



o 



O 74 x iiAOE_REG_A = REG Aj 

75 x REG A = *0F .AND.REG_Aj /* LOWER HALF = A»DR x/ 

76 * IF NODE^ADDR <> REG_A * 
O 77 * THEN * 

70 r- CARRY=Q; * 

79 J t GOTO REC_RTSj * 

O 00 x ENDIF} * 

81 * REG A=*FO. AND. SAVE REG A}/* UPPER HALF = CMND */ * 

82 x SHIFT REG_A fO LOWER NIB8LE) * 
O . 83 * REC_RTSi RETURN; ' * 

84 * x 

85 **x*xx-*xx»x*Kx***x-xxx*xx-*«x*xx*xxx*x***«»**«*******«xxx*xxx*x»xx 

e 
o 
c 
c 
o 
c 
c 

G 

o 



o 



c 

G 
C 

e 

G 
G 
G- 
G 
C 

o 

G 
G 
G 
G 
G 
G 
G 
G 
O 



FILE: HTP_fR_REipADAMT HEWLE If -••PACKARD ; M |p_ i'K_RLC <c> Uoieco 1903 Confidential. 
LOCATION OBJECT CODE LINE SOURCE LINE 



Hon, 7 Nov 1983, 1G;34 



PAGE 





tS7 
+ 

+ 
4* 




INCL 


UDE PGO_EQU 




j 6S01 internal reg 


ister equates (pa 


<ouoo> 


+ 


P1_DIR 


EQU 


OH 


<0002> 


+ 


P 1 _DATA 


EQU 


U02H 


( 1 > 


+ 


P2_DIR 


EQU 


0Q1H 


<O0O3> 


+ 

4. 


P2_DA"IA 


EQU 


U03H 


<0OO4> 


+ 


P3 DIR 


EQU 


Q04H 


<0 006> 


+ 
+ 
+ 


P3JDATA 


EQU 


06H 


<0UO5> 


P4_DIR 


EQU 


OObH 


<uOQ7> 


+ 


P4.DATA 


EQU 


07H 


<00O8> 


+ 


T CNTLSTAT 


EQU 


Q08H 


<0009> 


+ 


T CNTRHGH 


EQU 


09H 


<OO0A> 


+ 


T.CNTRLOU 


EQU 


OOAH 


<0O0B> 


+ 


T GCHPHGH 


EQU 


OOBH 


<00QC> 


■<- 


T~OCMPLOW 


EQU 


OOCH 


<l)00D> 


+ 


T_ICAPHGH 


EQU 


OODH 


<00QE> 


+ 


T_ICAPLOW 


EQU 


OOEH 


<OUOF> 


+ 
+ 


P3J3NTLSTAT 


EQU 


OOFH 


<0010> 


SCI RM 


EQU 


010H 


< 1 1 > 


+ 


SCI_TR_CS 


EQU 


011H 


<0Q12> 


+ 


SCI~RX~ 


EQU 


• 12H 


<0013> 


+ 


SCI_TX 


EQU 


013H 


<Q014> 


+ 
88 
89 


RAM_CNTL 
> 


EQU 


014H 




90 


; local equates 






91 


J 






<0OOF> 


92 


ADDR MASK 


EQU 


OOPH 


<ouoa> 


93 


NODE^ADDR 


EQU 


OOBH 


<OOF0> 


94 
95 
96 
97 
90 


CMND_MASK 


EQU 


QPOH 


<0O4O> 


ORFE 


EQU 


01000000b 






EXT 


CURRENT .STATE 



jport t data direction register 
jport 1 data register 

jport 2 data direction register 
jport 2 data register 

jport 3 data direction register 
jport 3 data register 

jport 4 data direction register 
jport 4 data register < 

jtiMer control and status register 

jcounter high byte 

jcounter low byte 

joutput compare register high byte 

joutput coMpare register low byte 

jinput capture register high byte 

jinpot capture register low byte 

jport 3 control and status register 

jrate and Mode control register 

; transMit/receive control and status register 

jreceive data register 

jtransfiit data register 

jRAM control register 



G 



o 

G 

o 
o 
o 
o 

G 
O 
C 

o 

G 
G 
G 



FILEi MTP_TR_RI: 
LOCATION OBJEC" 



000(3 

GO 0.0 OD 

0001 D611 

03 9612 



ipADAHT HEWLETT-PACKARD: H I P_T R_REC 
CODE LINE SOURCE LINE 



<c> Coleco 1V83 Confidential 



Mon, 7 Nog 1783, 1 : 3b 



'ACE 



0005 C440 
07 2702 



0009 




00O9 


OC 


000A 


39 


OB 




000B 


D600 


GOOD 


260C 


OOOF 


16 


010 


84 OF 


0012 


8108 


0014 


2604 


0016 


17 


0017 


OD 


0018 


2001 


001A 




001A 


OC 


OOIB 




00 t & 




001B 


39 


Errors 3 






100 




PROG 




101 




GLB 


MfP_TR„REC 


102 


MTP_TR_RECl- 






103 




SEC 




104 




LDAB 


SCI_TR„CS,D 


105 




LDAA 


SCI_RX,D 


106 








107 




ANDB 


#ORFE 


108 




BE« 


NO_URFE 


109 








110 




GLB 


BREAK„ORFE 


in 








112 


BREAK_ORFEi 






113 




CLC 




114 








US 




RTS 




116 








117 


NQJJRFEl 






110 




LDAB 


CURRENT STATE, D 


119 




BNE 


ENDIF_CNTRL 


120 




TAB 




121 




ANWA 


#ADDR_MASK 


122 




CMP A 


#NODE~ADDR 


123 




BNE 


ELSE_NQTADDR 


124 




TBA 




125 








126 




' SEC 




127 




BRA 


ENDIF_ADDR 


128 


ELSE_NOTADDR > 






129 




CLC 




130 


ENDIF„ADl>Rs 






131 


ENDIF_CNTRL: 






132 




RTS 





jl TOKEN = BYTE FOR THIS NODE 

}1 NET BYTE IN » SCI RX 

;1 IF Dl_MODE,_WORD = CONTROL. 



BAD DATA 



>2 
)3 



get Dl„MODE„WORD 

SAVE NBI = NET BYTE IN 

ADDRESS = NET_BYTE_IN .AND, ADDR_HASK 

IF ADDRESS * NODE ADDR 



NET BYTE IN = SAVE NBI .AND. CMND MASK 



/* NO) REC 
/* LOWER f 



/* UPPER } 



J 2 ELSE 

;3 TOKEN ■ BYTE NUT FOR THIS NODE 

j2 ENDIF 

jl ENDIF 



G 
G 
U 
G 
G 
# 
O 



C 

c 

c 

c 



o 

c 

c 
o 
o 
o 
c 
o 
o 
o 
c 
c 
u 
# 
o 



FILE: HTP„TR„RE:pADAMl CROSS REFERENCE TABLE 
LINE* SYMBOL TYPE REFERENCES 



PAUL 



92 


ADDR MASK 


A 


121 


112 


BREAK„URFE 


P 


110 


94 


CNND HASK 


A 




98 


CURRENT STATE 


E 


118 


128 


ELSE_NOTADDR 


P 


123 


130 


ENDIF ADDR 


P 


127 


131 


ENDIF CN'SRL 


P 


119 


102 


MTP„I'R_REC 


P 


101 


93 


NODE ADDR 


A 


122 


117 


NO_ORF£ 


P 


108 


96 


QRFE 


A 


107 




SCI RX 


A 


105 




SCI TR_CS 


A 


104 



FILE; MTP_TR_lk:pAI)AMT HEWLETT-PACKARD! MTP_1 R_IRANS <c) Coleco 1V03 Confidential Hon, V Nog 1V83, 10:3b PAGE 

t ••' LOCATION OBJECT CODE LINE SOURCE LINE 



O 



1 "6801 A 

3 NAME A Rev 03 - RPD' 

4 



12 


m MTP TR Tl 


4 A N 5": 


13 


m 




14 
15 
16 


mmmmmmmmmmmmmm^ 


Rev History 




17 


Rev. Date 


Nane 


18 


3 20juI740p 


RPD 


19 


2 19jul2053 


JIM 


20 


1 13jul83Sa 


RP1) 


21 


12JUL1236 


DLS 


C.C. 

23 


Ede MTP TR TRANS MEND 





5 De MTP TR TRANS MACRO jHeader Rev. 4 

G 6 ~ .GOTO Ede_MTP_TR_l'RANS 

7 
^ 8 Project! NET, 83-101 

G' 9 

io mmmmmmmmmmmmmmummmmmmmmmmmmmmm 

G' 1 2 8t M T P T R "1* RAM *":> 1> «... 3 

o 

16 Rev History 

.. . _„,_ Change 

© 18 3 20juI740p RPD removed LIST directives 

Printer MAC started. 

_ M ._,, converted pseudo code to 6801 code 

O 21 12JUL1236 DLS Initial Pseudo code 

<D 
G 

O 

o 

o 
o 
o 
o 
o 

G 
G 



G 



FILE! MTP_TR_TR;pADAMT HEWLETT -PACKAPD ! Ml P_IR_7l<ANb <c> Coleco 1983 Confidential Hon, 7 Nov 1983, 10:3b PAG 

LOCATION OBJECT CODE LINE SOURCE LINE 

2 5 X X X X X- X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

26 x x 

27 x MODULE NAHE s * 
^ 28 x x 
o f 29 * MTP TR_TRANS * 

30 x " x 

_ 31 * INPUTS; * 

-..;' 32 x x 

33 x NET BYTE OUT (KEG A) * 

34 x x 
3b * FUNCTION(S) i * 

36 x x 

37 * 1. 10 SEND A BYTE OUT OVER THE NETWORK. * 
U 38 * * 

39 * OUTPUTS! * 

40 * * 
9 41 x NET_BYTE_OUT (LOCATION 13) • * 

42 x x 

43 x CALLS! * 
L^ 44 x « x 

45 x NONE. * 

46 * * 
U 47 x- CALLED BY; * 

48 x x 

49 « MTP ACM SEQ * 
"" 50 x MTP„NIM_READ " * 

51 « ' * 

52 * NOTES; * 
_•' ' 53 « * 

54 x NONE. * 

55 x ' * 
U 56 ******************** ***im************************** ************* 

57 

58 XX*XXX*X«*XX*XX*XXK*XXX*XXX*XXX*XX»X»*»****X*XXXXXXX*XXXXXXXXXXX 

X 
X 
* 
X 
X 
X 
X 

LN GOTO REPEAT_UNTIL_BET; * 

X 

X 
X 
X 
X 

X 

7 3 X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X * X X X X X X X X X X X X X X X X * X X X X- X X X X 



59 


X 






60 


X 


PSEUDO CODE 




61 


X 






62 


X- 


MTP_TR_ 


TRANS; 


63 


X 






64 


X 


REPEAT _UNl IL_SET: 


65 


X 






66 


X 




IF MEH(ll) .5=0 


67 


X 




END IF; 


68 


X 






69 


X 




MEMU3)=REG_A} 


7 


X 






71 


X 


H£ I URN ', 


72 


X 







0' 

c 
c 
o 
c- 
o 
o 
o 
o 
o 
o 
c- 

C 

o 
o 

c 

u 



FILE: h'lP_JR_IR:pADAMi HEWLETT-PACKARD: MTP_1K_lkANL> <c) Coleco 1983 Confidential 
LOCATION OBJECT CODE LINE • SOURCE LINE 



Mon, '/ Nov 1983, 10:36 



PACE 





75 




INCLUDE 


PGQ_EQU 




+ 


> 

I 6801 inter 


nal register equates 


< > 


+ 


P1_DIR 


EQU 


OH 


<00 02> 


•f 


Pl_DAlA 


EQU 


U0 2H 


< t > 


+ 


P2 DIR 


EQU 


001H 


<0 003> 


+ 


P 2~D ATA 


EQU 


03H 


<Q004> 


+ 


P3 DIR 


EQU 


004H 


<0 006> 


+ 
+ 
+ 


P3.DATA 


EUU 


006H 


<0005> 


P4_DIR 


EQU 


005H 


<0007> 


+ 
+ 

+ 


P4_DATA 


EQU 


07H 


<0008> 


T CNTLSTAT 


EQU 


008H 


<l)009> 


+ 


T CNTRHGH 


EU.U 


009H 


<OO0A> 


+ 


T CNTRLOW 


EQU 


AH 


<000B> 


•f 


T.OChPHGH 


EQU 


00BH 


<Q0QC> 


+ 


T OCMPLOW 


EQU 


00CH 


<00QD> 


•f 


T_ICAPHGH 


EUU 


OODH 


<OO0E> 


+ 


T_ICAPLOW 


EUU 


EH 


<0OOF> 


+ 

■f 


P3_CN1LS1A1 


EQU 


OOEH 


< 001 0> 


SCI_RH 


EQU 


010H 


<0011> 


+ 


SCI TR CS 


EUU 


011H 


<0 012> 


+ 


SCI_RX 


EQU 


012H 


< 1 3 > 


+ 

+ 


SCI_TX 


EUU 


013H 


<0G14> 


RAM_CNTL 


EQU 


Q14H 




76 










77 


J 








78 


j local equates 






79 


1 






<0020> 


80 
81 


TDRE_MASK 


EQU 


020H 



(page 0) 



jport 1 data direction register 
jport 1 data register 

jport 2 data direction register 
jport 2 data register 

•port 3 data direction register 
jport 3 data register 

;port 4 data direction register 
jport 4 data register 

jtiwer control and status register 

jcounter high byte 

jcounter low byte 

joutput compare register high byte 

joutput compare register low byte 

jinput capture register high byte 

jinput capture register low byte 

jport 3 control and status register 

jrate and node control register 

j transMit/receiwe control and status register 

jreceive data register 

{transmit data register 

jRAM control register 



j "transMit_data_register_e«pty " Mask 



o 
o 
# 



g 
c 
e 
o 

G 
C 
O 


o 
c 

c 
o 

c 
c 
o 

G 

G 
G 
G 



FILE: MTP._TR_.TR i pADAMT HEWLETT -PACKARD i M f P_TR_1RANi:i 
LOCATION OBJECT CODE LINE SOURCE LINE 



00 

3C 

00 01 CE0U16 



<c) Coleco 198o Conf ident :i.a : 



Hon, '/ Nov 1983, 10:36 



PA 1,1: 



0004 
0004 09 
05 270 B 



0007 D611 
09 C42Q 
OB 27F7 

000D 9713 

000F OC 

0010 2004 

0012 



0012 BD0000 

0015 OD 

0016 

0016 38 
017 39 



Errors 1 







83 








PR 88 






84 








GL.B 


MTP_(K_TRANS 




8b MTP 


TR_ 


.TRANS: 








86 








PSHX 






87 








L1)X 


#< 2*1 60)/ (3+3+3- 


2+3) 


88 














89 REPEAT: 










)T 


90 








DEX 




}3 


91 








BEG! 


HAVE_1DRE_ERR 


j 3 


92 














93 














94 








LDAB 


SCI TR CS,D 


I 3 


95 








ANDB 


♦IDRE MASK 


, > 2 


96 








BEU 


REPEAT 


i* 


97 * 














98 








S1AA 


SCI_TX,D 




99 














100 








CLC 






101 














102 








BRA 


END_TR 




103 














104 HAVE 


JTDRE. 


.ERR I 








105 } 








CLEAN 


UP UART PORTS 




106 














107 








EXT 


CLEAN_UART_HW 




108 














109 






' 


JSR 


CLEAN_UART..HW 




110 














111 








SEC 






112 














113 END. 


_TR 


1 










114 








PULX 






115 








RTS 







SAVE X JUST IN CASE 
ALLOW 2 BYTE TIMES 

1 REPEAT 
VIME UP ??? 
YUP 

2 TDRE o SC1_TR_CS .AND. 7DRE_MASK 

get the control/status byte 
Mask in the IDRE bit 
jl UNTIL TDRE - fRUE 

)1 SCI_1X » NEXT_BYTE_8UT 



W 



G 



c 

o 

c 

c 

c 

c 

c 

o 

o 



o 

o 
o 














# 





FILE: MTP_TR_lR:pADAM'J CROSS REFERENCE TABLE PAUL 



N£# 


SYMBOL 


TYPE 


REFERENCES 


107 


CLEAN IJART HW 


E 


109 


113 


END_TR 


P 


102 


104 


HAVE TDRfc ERR 


P 


91 


85 


MTP FR JRANS 


P 


84 


89 


REPEAT 


P 


96 




SCI TR CS 


A 


94 




SCI TX 


A 


98 


80 


TDRE MASK 


A 


95 



FILE! MTP_TR_TC:pADAMT HEWLETT-PACKARD: Ml P_J K_TCU (c) Coleco 1V83 Confidential Hon, 7 Nou 1903, 10:3V PACE 

G LOCATION OBJECT CODE LINE SOURCE LINE 






1 A 68Q1 A 

3 NAME A Rev 01 - RPD A 

4 

5 De MTP TR_TCU MACRO ^Header Rev. A 

C 6 .0010 Ede_MfP_IR_lCU 

7 

8 Project! NET, 83-101 

O 9 

io mwmmmmmmmmmmmummmmmmmmmmmmmmmm 

li m m 

G \z m mt i :> .... r r .... r o u R i :> x> &* 

1 3 $91 $& 

C 15 

16 Rev History 

17 Rev. Date Narte Change 

Q 10 1 20julO00p RPD created fron MTP file 

19 19jul535p RPD Initial Pseudo code and code 
20 

I. 21 Ede_MTP_TR_TCU MEND 

o 
c 

C 
G 

G 
G 

G 



G 
G 

G 



C" 

o 
c 



FILE! MTI :> _,TR_lC!pADAMI HEWLETT -PACKARD l M IP_lK_rCU <c) Coleco 1983 Confidential Mon, 7 Nov 1VB3, 1 i 37 PACE 

LOCATION OBJECT CODE LINE SOURCE LINE 

2 3 * * * * x * x X * X -X- * XX * X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

24 x x 

25 x MODULE NAME! * 

26 x x 

x 



O 27 x MTP_7R_TCU (transMit clean up) 

28 x x 

^ 29 x INPUTS: x 

^.'•' it) x X 

31 x none x 

32 x x 
O 33 x FUNCTION (S ) ! ' * 

34 x x 

35 x l . Clears the "receive data register full" flag of the * 
W 36 x 6801 SCI after a transmission sequence <1 or wore x 

37 x bytes). The flag is set as a result of sending a byte x 

38 x out and receiving the sane byte in on the connon NET x 
O 39 x line used for sending and receiving . x 

4 x x 

41 x OUTPUTS i x 

42 x x 

43 x SCI control/status register. bit 7 » x 

44 x • x 

* 

46 x x 

47 x none * 
x x 

49 x CALLED BY: x 

50 x x 

51 x HTP ACM R x 

52 x tali routines calling MTP_TR_rKANS} x 

53 x x 

x 



c 

O 45 x CALLS! 

46 

L 48 

O 



C 54 x NOTES! 

55 x l - This sequence follows the procedure described in * 

56 x hardware Manuals for clearing the flag. Which is: x 
O 57 x step 1) read the SCI control status register x 

58 x step 2) read the SCI receive data register x 

59 x 2 - The MAC modules are responsible for calling this x 
O 60 x Module after doing a transmit function to avoid x 

61 x reading itself when other data is expected. x 

62 x x 

O -- 6 3 * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X * 

c 

O : 

o 
o 
# 
o 



c 
c 



o 
c 
o 
o 
o 
c 
c 
c 

G 
G 
G 
G 
G 
u 
G 
# 
G 



FILE! MIP_(R_lC>PADAHT 
LOCATION OBJECT CODE LINE 

65 
66 
6? 
66 
6 V 
70 
71 
72 
73 
74 
7b 
76 
77 
78 
+ 
+ 
+ 

< > + 
<0002> + 

+ 

< 000 1 > + 
<0003> •► 

+ 
<0004> + 
<0U06> + 

+ 
<0005> + 
<0007> + 

+ 
<0()08> + 
<0 009> + 

< QA > + 
<0 00B> + 
<0 0QC> + 
<000D> + 
<OO0E> + 

+ 

<00OF> + 

< 1 > + 

< U 1 1 > > 

< 1 2 > + 

< I) 1 3 > •«• 

+ 

< 1 4 > + 

79 

80 

81 

<0 020> 82 

83 

84 

85 

0000 86 

00 3C 87 

88 

00 01 CEO 22 8V 

VO 



HEWLETT '--PACKARD! l"iTT'_ f R_TCU (c) CoJeco 1783 Confidential 
SOURCE LINE 

X * X -X- * * * -X- * X * X X * X XX X *■ X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X * X X X X X X X X X- X X X 



Mem, 7 Nov 1983, 10:37 



PAGE 



PBEUDU CQDEi 

begin 

wait for TDRE = 1 

clear RDRF CfroM 2nd to the last byte} 

wait for RDRF = 1 

read in the received byte tfron very last byte} 
end 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

INCLUDE PG0_EOU 
} 6801 internal register equates (page 0) 



PI DIR 
P1_DATA 

P2 DIR 
P2..DATA 

P3_DIR 
P3_DATA 

P4_DIR 
P4_DATA 

T CNTLSTAT 
T_CNTKHGH 
T.CNTRLOW 
T OCMPHUH 
T_OCHPLOW 
r ICAPHGH 

Ocapluw 
p3_cntlstat 

SCI_RM 

SCI_TH_CS 
SCI~RX 
SCI IX 



EUU 
EUU 

EUU 
EUU 

EUU 
EUU 

EGJU 
EU.U 

EGJU 
EUU 
EUU 
EUU 
EGJU 
EUU 
EG|U 

EQU 

EQU 
EQU 
EGJU 
EUU 

EUU 



RAH_CNTL 

; local equate 

TORE MASK EUU 



MTP TR TCU: 



PROC 
GLB 

P8HX 

LDX 



000H 

oosh 

001H 
03H 

004H 
006H 

05H 
07H 

008H 

09H 
OOAH 
OOBH 
OOCH 
OODH 
OOEH 

OOFH 

01 OH 
1 J. H 
012H 
1 3H 

014H 



020H 



MI'P i"« I'CU 



# < 3 x 1 6 > / < 3 + 3 + 3 ♦• 2 ♦• 3 ) 



jport 1 data direction register 
jport 1 data register 

jport 2 data direction register 
jport 2 data register 

jport 3 data direction register 
jport 3 data register 

jport 4 data direction register 
jport 4 data register 

titter control and status register 

counter high byte 

counter low byte 

output coMpare register high byte 

output compare register low byte 

input capture register high byte 

input capture register low byte 

port 3 control and status register 

rate and Mode control register 
transMi t/receive control and status register- 
receive data register 
transMit data register 

RAM control register 



j ALLOW 3 BY'IE I 1MES 



FILE; MTF 

LOCATION 

0004 
0004 
05 

0007 
0009 
OOOB 



>_TR_TC: 
OBJECT 



09 
2713 



D611 
C420 
27F7 



00 OD D612 



OF 




OF 


09 


0010 


27 00 


0012 


D611 


0014 


2AF9 


0016 


D612 


0018 


38 


0019 


39 


01 A 




001A 


8D02 


001C 


38 


001D 


39 



001E 

001E D611 
0020 D612 

0022 C61B 
024 B711 



0026 C600 
28 1)7 1) I) 

U02A 39 

lirrors- 



pADAMl 

CODE LINE 

91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
1 29 
130 
131 
132 
133 
134 
135 
136 



•IL.WLEH -PACKARD! M !'H_ 1 R_TCU < c > Coleco 1983 Confidential* 
SOURCE LINE 



Hon, 7 Nov 1983, 10:37 



'ACE 



REPEAT 



REP EAT 1 ! 



TDRE EttRi 



CLEAN UAKT HU i 



DEX 
BEQ 

LDAB 
ANDB 
BEQ 

LDAB 



TDRE_ERR 

SCI TR_CS,D 

#H)NE_MASI< 

REPEAT 

SCI_RX,D 



DEX 
BEQ 


TDRE_ERR 


LDAB 
BPL 


SCI TR CS,D 
REPEAfl 


LDAB 


SCI_RX,D 


PULX 




RfS 





CLEAN UP UART PORTS 
BSR CLEAN UART_HU 



PULX 




RTS 




GLB 


CLEAN_UART. 


LDAB 


011H,D 


LDAB 


1 2H , D 


LDAB 


#00011011B 


STAB 


011H,D 



EXT 

LDAB 
STAB 

RTS 



CURHfc.N1 STATE 



*0 
CURRENT_STATE,D 



jreset RDRF fro« 2nd to last byte 

jl WAIT FOR RECEIVE DATA REGISTER FULL 

;1 EMPTY RECEIVED DATA REGISTER AND CLEAR RDRF BIT 

jreset RDRF froM last byte 



• 

o 



I. ' 

FILE: MTP„TR_)C!pADAri'l CROSS REI-ERENCL TABLE PAGE 

C LINE* SYMBOL TYPE ReFEKENLES 

C 

C 

c- 

C 
C 
C 



c 
c 



L. 



o 
o 



124 


CLEANJJART 


HW 


P 


116, 122 


131 


CURRENf_STA1E 


E 


134 


86 


MTP TR TCU 




P 


85 


91 


REPEAT 




P 


97 


101 


REPEAT1 




P 


106 




SCI RX 




A 


99,108 




SCI TR CS 




A 


95,105 


114 


TDRE_ERR 




P 


93,103 


82 


TDRE MASK 




A 


96 



c 

FILE: MTP_NIM_U:pADAM7 HEWLETT-PACKARD: M'l P_N1M_WR 11 E <c) Coleco 198^ Confidential Mon, 7 Nov \W6 , 10:3 U PAUL 

C LOCATION OBJECT CODE LINE SOURCE LINE 

^ 1 A 6801 A 

L' 3 NAHE A Rev 02 - DLS A 

4 

5 De MTP_NIM_WRITE MACRO jHeader Rev. 4 

C; 6 .GOTO Ede_MrP_NIM_URIlE 

7 

8 Project : NET, 83-101 
O 9 

io mmmmmmmmmmmmmmmmmmmmmmmmmmmmmm 

_ . n m m 

C 1 2 8$ M T P .... N X M .... W R X T l:F. X> I... iiJ *& 

1 ~k fa $s$ 

C 15 

16 Rev History 

17 Rey. Date Name Change 

O IB 2 1SJU12130 DLS FLIPPED OVFL INTERFACE 

19 1 13jull30p RPD converted pseudo code to 6801 code 

20 12JUL1356 DLS Initial Pseudo code 
O 21 

22 Ede_M7P_NlM_WRITE MEND 

o 
c 
c 

G 

Q 

o 

o 

G 
G 
G 
G 
# 
G \ 



c 

FILE! MTP_NlM„WipADAMT HEWLETT -PACKARD i MTP_NIM_WR 11 E (c) Coleco 1VB3 Confidential. Hon/ ? Nov 1V03, 1 : 3 (J PACE 

v -'-' LOCATION OBJECT CODE LINE SOURCE LINE 

2 4 X * * X X X X X * X X X * X X X * X * X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

<c' 23 x x 

26 * MODULE NAME s * 

2? * x 

C 20 x MTP NIM WRITE x 

29 x x 

30 x INPUTS: * 
G Jl x x 

3a x RESET FLAG: CARRY SET ■ RESET * 

33 x CARRY CLR » NU RESET * 

O 34 x DATA (REG A) with TAPE COMMAND x 

35 * x 

36 x FONCTION<S) i x 
O 67 x x 

38 X 1. TO PROVIDE DATA AND SIGNALLING INFORMATION TO THE x 

39 x NODE APPLICATION. , * 
O 40 x x 

41 x OOTPUTSi x 

42 x x 
G , 43 x M SIG x 

44 » M DATA x 

45 x x 
C 46 x CALLS: * 

47 x x 

40 x NONE. x 
C ' 49 x x 

50 ' CALLED BY I * 

51 * * 
G 52 x MTP_ACM_SEQ x 

53 x x 

54 x NOTES: x 
G 55 x . x 

56 x NONE. ' x 

57 x x 
O 5fcJ **xxxxxxx*x*K*x*xxxxxxxx*xx*xx»x********x»x«***x*xxxxxxxxxxxxxxx 

G 

c 
c 

.G 
G 
G 

# 

G ■& 



FILE: HTP_NIM_W:pADAMT HEWLETT-PACKARD: Ml P_NIrt_WR.i:T E (c) Co.Ipco 1903 L.onfidential Mon, 7 Nov 1983, 1 : .59 PAGE 3 

C LOCATION OBJECT CODE LINE SOURCE LINE 

60 X X X- X X X X X X X X X X X * X X * X X * X X X X X X X X x * * -x- * X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X 

C 61 x * 

62 x PSEUDO CODE! * 

63 x * 
C: 64 x MTP_N1M.WRI IE: * 

65 x * 

66 x IF CARRY=SET * 
C' 67 x THEN * 

68 x M S1G-*FF) /* RESET SIGNAL */ * 

69 x EXIT; * 
C 70 * END IF * 

71 x * 

72 « M DATA = TAPE COMMAND /xpOlNTER TO INCOMING DATA/x x 
C 73 * M^SIG = 0H 

74 x * 

75 » U RfSi RETURN] * 

O 76 x * 

77 xxx*x******x»x*xxxx*xxxxxxxxxx*x*x******«x*xxxxxxxxxxxxxxxxxxxxx 

o 

o 

c . 

c 

o 

G 

o 
c 

G 

L 
G 
G 

# 

G \ 



e 



o 



FILE! MTP_NIM„W!pADAMT HEWLETT-PACKARD; Ml P_NIM_WIUTE <c> Coleco 1V83 Confidential. Mon, 7 Nou 1V83, 1 ; 39 PACE 

LOCATION OBJECT CODE LINE SOURCE LINE 

79 INCLUDE I_N1M 

+ X X- -X X X X X- X X X -X X X -X X X X- X- X X X- X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

+ X . x 

+ x HIERARCHY CHART * 

(..:: + x L»F * 

■*■ x MEDIUM ACCESS CONTROLLER * 

+ x (MAC) * 

+ X X 

•♦• X * 

+ X * 

G ! + x <MAC> > * 

+ x I x 

+ x I * 

G + x + + • + * 

•f x <TR> <NIM> <ACM> * 

+ X | I I * 

O + X + -; + + I + * 

+ * <TRANS> <REC> I <SE«> x 

+ x I I x 

O + X + 1- •♦■ " I » 

+ ft I I I x 

+ <URITE> <READ> I x 

O + <■ I x 

•f X I * 

+ -X + + + X 

O + X I IX 

+ x <EVENr_PRUC> <RESP>x 

+ X x 

O + x x 

+ x*xxxxx*xx*x*xx***xxxxxxxxxxxxx*xx**xx*x**xftxx*xxxxxxxxxxxxxxxxxx 

C ' 

c . • 

« 

g- 

G 

G 
G 
G 

• 



FILE: M1P_NIM_W:pADAMf HEWLETT -PACKARD : MTP_NIM_WR ITE ( c ) Uoieco i'>'J5 Confidential rion, 7 Nov 1 V t:'(i , 1 ; 59 PAGE. 

C LOCATION OBJECT CODE LINE SOURCE LINE 



O 



u 



C 



+ X- * * * * X- X- X * * -X * X- * * -X- * * * X- -X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

+ x INTERFACE MODULE DESCRIPTION * 

+ X X 

+ X X 

(■• •♦• * NAHE: * 

+ X ' X 

+ x 1_NIM x 

(•' f x x 

+ x FUNCTION: * 

•♦■ x x 

O + x TO DEFINE THE INTERFACE BETWEEN THE MAC AND APPLICATION x 

♦ x WITHIN A NODE. EACH AND EVERY NODE (WHERE A PRINTER * 

+ x- OR KEYBOARD IS AN EXAMPLE OF A NODE) CONSISTS OF TWO * 

( v x PARTS: DAN APPLICATION PART, l.E.> CHE SOFTWARE THAI * 

+ * HANDLES THE NODE'S REASON FOR EXISTENCE, AND 2) A MAC * 

+ x PART, I.E., THE SOFTWARE THAT INTERFACES TO THE NETWORK, * 

+ x x 

+ x DESCRIPTION! x 

+ X X 

O + * A BLOCK OF MEMORY WILL BE SHARED BY THE MAC AND APR, * 

+• x WHEREIN DATA AND CONTROL SIGNALS WILL BE PASSED BACK x 

+ x AND FORTH BETWEEN THE TWO. A DIAGRAM OF THIS BLOCK * 

O + x (REFERRED TO AS N'IM.BLOCK) FOLLOWS! x 

+ X X 

+ x NIM_BLOCK * 

+ X + + X 

+ x I M_S1G I A<R/RESET>, M<W)j x 

+ x + — + x 

C + x I M_DA'TA I A<R/RESET>, M(W)> * 

+ x + + x 

+ xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

o 
o 
o 
o 
o 
u 
o 
o 
• 



O 

c 

c 



FILE! MlP_NJ:H_W:pADAHr HEWLETT -PACKARD: H l'P„NIMJJR I 'I E (c) Coleco 1V0,4 Confidential Hon, 7 Nov 1VB3, 10:3? PAGE 6 

LOCAI ION OBJECT CODE LINE SOORCE LINE 

+ X- * X- -X- * X- X -X * X X X X * * X- X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X * X X X X X X X X X X X X X 
•t- X * 

+ * DAI A ELEMENI DEI- INITIONb : * 

+ X x 

+ X x 

+ ■* M_SIGs * 

+ x -- * 

x 



Q + x 0- NO SIGNAL (IDLE). 

+ N 170- A COMMAND lb WAITING FOR THE APPLICATION 

+ x 2SS- RESET * 

c 

•f x * 

+ x M DATAi * 

( \ + * _ X 

•♦•X x 

+ x U- READ FROM TAPE * 

O +• x 12- WRITE TO TAPE * 

+ x 'R '-REWIND THE TAPE TO THE LEADER * 

+ x * 

O + X * 

+ x NOTES! ' * 

+ x t. Mi= MAC SIDE OK NODE. * 

O + x * 

•f XXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

o. 

c 
o 
o 

o 
c 

G 

o • ■ 

o 

o 



o 



c 

FILE: HTP_NIM_W:pADAH'l HLWLETT-PACKAKD ! MTP_NlH_Wk':iTE < c > Coleco \9&j Confidential Hon, '/ Nov IV0-4, 10:40 PhGE 

G LOCATION OBJECT CODE LINE SOURCE LINE 

+ * X X * * X X X X X X X X X X X X X X X X X * X X X X X X X X X X X X X X X X X X * X X X X X X X X X X X X X X X X X X X X X X X 

C + * * 

♦• x NOTES TO INS1ALLER OF THIS HAC/APP ; * 

+ X * 

G ♦• * 1. THE APP IS RESPONSIBLE FOR INITIALIZING AIL OF RAH. * 

+ x * 

+ * 2. THE APP MUSI INITIALIZE THE CONTROL AND Si A i US REG AT * 

+ x LOCATION 0011 . * 

+ x * 

+ x 3. THE Dl_MODE_WORD MUST BE SET TO ZERO AT PWR UP BY THE * 

G + * APP . * 



G 



•f x 



X 



+ * 4. THE NIM.BLOCK WILL END Al ADDR 127. * 

+ x * 

+ XXXX-XXXXXXXXXXXXKXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

O0 

G 81 ', 

82 } local equates 

83 j 

G <0 0FF> 84 RESET EQU OFFH 

<00AA> 85 SET EQU OAAH 

86 EXT M_S1G,M DATA 
G 87 

G 
G 
G 
G 
G 
G 
O 

G 
G 
# 




FILE: MTP_NlM_W:pADAMT HEWLETT -PACKARD i M'(P_NlM_WRlTfc. <c) Coleco 1V83 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Hon, 7 Nou 1V83, 10:40 PACE 8 



89 



PROC 



o 






90 


CLB 


MTP_N.EM_WRITE 






< > 


91 MTP NIM WRITE 


: EQU 


* 







2406 


92 


BCC 


Nurjnrr 


c 


02 


86f-F 


93 


LDAA 


♦RESET 




04 


970 


94 


SIAA 


M SIG,D 




06 


20 06 


95 


BRA 


END IF KST 


o 


0008 


970 


96 NOT_RST 


SIAA 


h_DATA ; i> 




00OA 


86AA 


97 


LDAA 


♦SET 




000C 


970 


98 


STAA 


M_SIG,D 


o 


00OE 


39 


99 END IF RSI ! 


RIS 




o 


Errors 55 











o 












o 












o 












c 













; RESET IS FALSE 



SAVE DATA IN 




O 

G 
O 



O 
# 
O 



99 


END IF RSI 


P 


95 


91 


mtp_nImjjrite 


P 


90 


86 


M DA I A 


E 


96 


86 


M_SIG 


E 


94,98 


96 


NOT RST 


P 


92 


84 


RESET 


A 


93 


85 


SET 


A 


97 





FILE: MTP_NIM._W:pADAMT CROSS REFERENCE TABLE PACE 

C? LINE* SYMBOL TYPE ' REFERENCES 

O 

C 

G 




C 

o 

o 
c 
o 

c 
o 
c 
c 
c 

G 
G 
• 



c 
c 
c 
c 
g 

Q 
o 

c 

G 
C 

c 
c 

G 

g 



FILE; TAPE_APP:pADAMT HEWLEH -PACKARD ; 1AI , E_APP <c) Coieco 1903 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Mon, '/ Nov 19,83, 10 :41 



'ACL 



1 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
31) 
31 
32 
33 
34 
3b 
36 
37 
38 
39 
40 
41 
42 
43 
44 
4 b 



'6801 



NAME 



'Rev 15' 



De_TAPE_APP MACHO ;Header Rev. 4 

• GOTO Ede_l'APE_APP 

Project ! NET , 83-101 



m 



TAPE <«iPP 



II M B. 



i... i n i< s;> :i: n t o re b: ks &> 3 m 

e e (.> 'o ii m 

mmmmmwimmmmmmmmmmmmmmmmmmmmmmm 



Rev 


History 




Rev , 


Date 


NaMe 


lb 


83/10/04 


HME 


14 


83/09/31 


HME 


13 


83/09/30 


HHE 



12 


83/08/18 


GRW 


11 


03/08/18 


GRW 


10 


83/08/18 


GNU 


9 


83/08/18 


HME 


8 


83/08/18 


GRW 


7 


83/00/17 


GRW 


6 


83/08/17 


GRW 


b 


83/08/17 


GRW 


4 


08-0b-83 


HME 


3 


83/08/01 


GRW 


O 


27 julnoon 


GRW 


1 


26 jui 1307 


HME 





17jul440p 


DCS 



Change 

RS_READ_BIT RE-TIMED 

MOVED A MID-CELL TRANSITION TO THE 31 uSEC POINT 

TO PROVIDE A SLIGHTLY INCREASED TOLERANCE TO JITTER 

EXTENDED BIT CELL TO 70 uSEC 

ADDED MANCHESTER+180 SAMPLING 

MOTORS STAY RUNNING ALTER TRANSFER 

PULLING TAPE CLEARS CURRENT_RAM 

USE CHECK SUM INSTEAD Ot- CRC_16 

BE SMARTER IN CASE OP FORWARD STALL 

ADDED RETRY LOOP DECREMENTS TO FIND BLOCK 

CHANGED STATE AND POSITION OF CIP SWITCHES 
BECAUSE THE DESIGNERS FORGOT 10 TELL US 
ABOUT IT AND WE FOUND OUT (THE HARD WAY!! 

MOVED CRC CALC. IN WRITE BLOCK 

OFFLINE CONDITION UPDATES CURRENT_RAM 

ADDED TIMEOUT TO STOP ROUTINES 

CHECK ONLY MO TION0 OR M01ION1 IN READ_STUFF 

ADDED CURRENT RAM 

REASSIGNED BiTs 10 ACCOMODATE HARDWARE FIXES 

added block lockout and included new working subroutines 
& HME general Fixes and cleanups 

Modified to call real application subroutines 

Modified to be tape test application 

Initial Pseudo code 



Ede APP START MEND 



G 



c 



FILE; TAPE_APP ipADAMT HEWLETT-PACKARD! 1APE_APP (c) Coleco 1V03 Confidential Mon, ? Nom 1983, 10:41 PAGE 

LOCATION OBJECT CODE LINE SUUKLE LINE 



O 

o 



o 
c 



4 7 -X X X- * * X X * X X X * X X X X X X X X X X X X X X X X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

( 48 x x 

4V * MODULE NAME: * 

50 * * 

C 51 x TAPE_APP * 

52 x ~ * 

53 x INPUTS i * 
v , 54 x x 

55 * NONE * 

56 * ♦ * 
C 5? * , * 

SB * FUNCTION (S) I * 

59 x * 
C 60 x 1, LOOP CHECK NIM BLOCK FOR COMMAND AND EXECUTE * 

61 « DIRECTLY INTO KNOWN BUFFER LOCATIONS * 

62 x x 

63 x x 

64 x x 

65 x OUTPUTS i * 

66 x x 

67 x NONE * 

60 x x 
G 69 x CALLS « * 

7 x x 

71 x NONE * 

72 x x 

73 x x 

74 x CALLED BY: * 

75 x x 

76 x NO ONE * 
7? * * 

O 70 x NOTES i * 

79 x x 

00 x x 

G 01 x * 

02 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

G 
G 



G 

o 



c 
c 
o 
e 
c 
c 
o 
c 
c 
c 
c 

G 
C 
O 

c 
c 



FILE.: TAPE_APPipADAMT HEULETl-PACKAPD : 1APE_APP (c) Loleco l9U\i Confidential 

LOCATION OtUECT CODE LINE SUUtfUE LINE 

3 4 -x- * X X- X * * X * X X X X- X X X * * * * X * X X X X X X X X X X X X X X X * X * X X X X X- X X X X X X X X X X X X X X X X X X X 

83 x x 

86 * PSEUDU CODEs * 

tj/ x x 

8 * X X- X X X X X X X X X X -X X * X X X X X X X * X X X -X X X X X * X X X X X * X * X X X X X- X X X X X X X X X X X * X X X X X X 

09 



Hon, 7 Nov lVfcKJ, 1 ! 42 PACE 3 



K^ 



o 



o 
c 
o 

G 
O 

c 



e 
o 
o 

o 



G 



FILE: TAPE_APP:pADAMT HEWLETT-PACKARD : TAPL_APP (c) Coleco 1983 Confidential Hon, '/ Nov 1983, 10s42 HAfcb 

LOCATION OBJLCf CODE LINE SOURCE LINE 

91 x- The drive is connected as follows! 

92 x 

93 * Port l! 

94 * bit speed 80 ips when high, 20 ips when low 

95 * bit 1 stopO disables servo on drive when high 

96 * bit 2 stopl disables servo on drive 1 when high 

97 x bit 3 go fwd applies forward drive when low 
90 * bit 4 go rev applies reverse drive when low 

99 * bit 5 brake applies brakes to both drives when high 

100 * bit 6 write enable enables drive when low 

101 * bit 7 write enable 1 enables drive 1 when low 

102 * Port 2i 

t03 x bit write data data to bo h drives 

104 x bit 1 CIP1. high when cassette is in drive 1 

105 * bit 2 track select 1 = track A, = track B 

106 x bit 3 transMit data data, out to AdanNet 

107 * bit 4 receive data data in froM Ada«Net 

108 x Port 3s 

109.x bit 0-7 Multiplexed address and data to/froM external RAM 

111) x Port 4s 

HI * bit A8 address to external RAM 

112 x bit 1 A9 address to external RAM 

113 * bit 2 A10 address to external RAM 

114 x bit 3 MotionO high when tape is Moving in drive 

115 * bit 4 Motionl high when tape is Moving in drive 1 

116 x bit 5 CIPQ high when cassette is in drive 

117 * bit 6 unused always reads as 1 

118 * bit 7 read data data froM drives URed together 
119 

120 * DATA STRUCTURE DESCRIPTION . 

121 x 

122 * Tape block header i 

123 x the block proper is preceded by soMe zeros and a sync byte 

124 x 2-byte header' id, ( 04757h ) 

125 * 2-byte block nuMber < 0..Max ) 

126 x one's coMpleMent of block nunber 

127 * 2-byte Max block nuMber — nuMber of blocks on this track ( origin 1 ) 

128 x checksuM --- one-byte one's coripleMent of sum of ail above 

129 * 



,--.. 130 x Block/drive nuwbers (eg. COMMAND_BUFFER , CURRLNT_RAM) 

^ 131 x 4-byte block nuMber with low byte first 

132 * l~byte drive nuMber < or 1 ) 

133 

G 134 GLB ATP APP 

135 

136 EXT NiM BLOCK 

*-' 1^7 LXT CS_WORD 

138 EXT TAPE BTATU8U/IAPE_STATUS1 

139 LXT LENO"Fh„OF 10 STATUS 

140 LXT DATA.BUFFER 

141 LXT COMMAND BUFFER 
f H2 LXT CURRENT ~R AM 

O 143 

<0000> 144 DDRt EUU 000H port 1 data direction 

<0001> 145 DDR2 LQU 001H port 2 data direction 

W <()002> 146 MOTOR EU.U 002H Motor control register and write enables 

< D003> 147 MISC LUU 003H write_data, track select i C.I.P1 

o ^ 



I 

e 
e 
c 
o 
o 
c 
o 

Q 
O 

o 

Li 
G 



o 

I 

c 

o 
o 





FILE! TAPE„APP spADAMT HEWLETT-PACKARD! 1AI'E_APP (c) Coleco 1903 Coaf iden t ial Man, 

LOCATION OBJECT CODE LINE SOURCE LINE 

port 4 data direction 

port 4 data 

tiwer control & status 

16-bit tiwer register 

tiner output coMpare register 

port 3 control & status 

SCI rate t, mode control 

serial control and status 

serial receive data 

serial transwit data 

RAM control register 

bits in STATUS 



bits in M1SC 

bits in MOTOR 

Move tape forward slow 

wove tape forward fast 

Move tape reverse fast 

stop tape in forward direction 

stop tape in reverse direction 

both drives idle state 

output conpare flag in KL'b'K 



COMMAND 10 READ TAPE 

UNI f£ TAPE 

ASCII 'R' 

NORMAL DRIVE COMMAND -- CHECK M__DATA 

COMMAND 10 RESE1 NODE 



sync character 

identification word for block header- 
alternate block header tor Middle directory 
TIME SO ALLOW MOTORS TO TOP 



Nov 1983, 10:41 



PAUL 



<0 005> 


140 


DDR4 


EQU 


05H 


<0 007> 


1 49 


STATUS 


EQU 


07H 


<0 008> 


150 


TCSR 


EQU 


OH 


<0 009> 


151 


TIMER 


EQU 


09H 


<O00B> 


152 


OCR 


EQU 


OOBH 


<000F> 


153 


P3CSR 


EQU 


OOFH 


< 0010 > 


154 


RMCR 


EQU 


010H 


< 0011 > 


155 


SCSR 


EQU 


. 011H 


<0O12> 


156 


RDATA 


EQU 


012H 


< t) 1 3 > 


157 


TDATA 


EQU 


013H 


<0 014> 


150 
159 
160 


RAMCR 


EQU 


014H 


<0008> 


MOTIONO 


EQU 


00001000B 


< 1 > 


161 


MQTION1 


EQU 


00010000B 


<0020> 


162 


CIPO 


EQU 


00100000B 


<0040> 


163 


RDDAIAO 


EQU 


01000000B 


<0080> 


164 
165 


RDDATA1 


EQU 


10000000B 


<0004> 


166 


TRACK 


EQU 


00000100B 


<0002> 


167 


CIP1 


EQU 


00000010B 


<0001> 


160 
169 


WTDATA 


EQU 


00000001B 


<007F> 


170 


WENABLE1 


EQU 


01111111B 


<00BF> 


171 


WEN ABLE ( 


1 EQU 


101111MB 


<0OC0> 


172 


WDISABLE EQU 


11000000B 


<00D4> 


173 


FWDSLOWl 


) EQU 


110101006 


<0OD2> 


174 


FUDSLOWl 


EQU - 


iioiooiob 


<00DS> 


175 


FUDFASTl 


1 EQU 


FWDSLOWO.OR.l 


<00D3> 


176 


FUDFAST1 


EQU 


FWDSLOWl .OR.l 


<00CD> 


177 


REVFASTO EQU 


11001101B 


<0(JCB> 


170 


R EOF AST 1 


EQU 


11001011U 


<0 0F4> 


179 


FWDSTOPO EQU 


11M0100B 


<0 0F2> 


180 


FWDSTQP1 


EQU 


liuooiob 


<00EC> 


101 


REVS 1 OP t 


1 EQU 


111O11U0B 


<00EA> 


182 


REVSTOP1 


EQU 


11101010b 


<0 0DE> 


103 
184 


STOPPED 


EQU 


1101M10B 


<0040> 


185 
106 


OCF 


EQU 


01000000B 


< > 


107 


M SIC 


EQU 


N1M BLOCK 


< 1 ) 


ISO 


M_BATA 


EQU 


M„SIG+1 


<Q0QB> 


189 


C READ 


EQU 


lT 


<000C> 


190 


C_WRITE 


EQU 


12 


<0 052> 


191 


C.REUIND EQU 


02 


<0 0AA> 


1 92 


C COMMAND EQU 


1/0 


<0 0FF> 


193 


C_RE.SE! 


EQU 


255 


< > 


194 


8 OK 


EQU 





< 1 > 


195 


S BADBLK 


EQU 


1 


< I) 2 > 


196 


S_NOBLOCI< EQU 


2 


<0 003> 


197 


S NOT APE 


EQU 


3 


<0004> 


1 90 


S NOD RIVE EQU 


4 


< 1 6 > 


199 


SYN 


EQU 


016H 


<4757> 


20 


HEAD_ID 


EQU 


04757H 


<4S45> 


201 


HEAD ID2 EQU 


404511 


<IFI"F> 


203 
204 


srup_r.tMLoor loo oii flh 




> 







*-n 



D 



• 




FILE: TAPE_APP spADAMT HEWLETT-PACKARD! TAPE_APP 
LOCATION OBJECT CODE LINE v SOURCE LINE 



<c) Coleco 1703 Confidential 



Hon, 7 Now 1903, 10:42 



PACE 



0000 
0001 
0002 
03 
0004 



0006 
0007 
0008 



OA 



000B 
000C 
000D 



000F 



0010 



0011 
013 
14 

0015 

0017 

0020 
0021 



0000 



< 

< 1 
<0001 



<0 0FA 
<0017 
<0 020 



<003E) 



<0400 
<080 



20b 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
21? 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
220 
229 
230 
231 
232 
233 
234 
235 
236 
237 
230 
239 
24 
241 
242 
243 
244 
245 
246 
247 
240 
247 
250 
251 
252 
253 
254 
255 
256 
257 
250 
25V 
260 
261 



) * * * BLOCK LOCKOUT CONSTANT- SET 10 1 TO DISABLE WRITES 



01 SAB £00 

CS_MODE too 1 

BD_MODE EQU 1 

DATA 

ZERO BYTE RMB 1 

SYNC_BYTE RMB 1 

TEMP~ RMB 1 
BITCOONT RMB . 1 

STUFF END RMB 2 



USE CHECK SUMS INSTEAD OF CRC 16 CHECK 
BLOCK DEFINITION MODE- DIRECTORY IN MIDDLE 



TAPE 
TAPE 



USED TO WRITE ZERO TO 

OSE1) TO WRITE SYNC TO 

USED BY CRC ROUTINE 

COUNTS BITS FOR TAPE AND CRC 

BUf-FER END ADDRESS WHEN READING STUFF 



* THE NEXT 3 VARS ARE USED ONLY BY FIND BLOCK 
DRIVE NUM RMB T CURRENT DRIVE 

TRACK NUM RMB 1 CURRENT TRACK 

BLOCK NUM RMB 2 NEXT BLOCK AVAILABLE 



* USED FOR MANCHESTER+180 ALGORITHM 
LAST SEEN RMB 1 



[2] 
121 



* THE NEXT 3 VARS ARE SET BY CALC PHYS AND USED BY EVERYBODY 
WANTED DRIVE RMB 1 DESIRED DRIVE 

WANTED TRACK RMB 1 DESIRED TRACK NOMBER 

WANTED_BLOCK RMB 2 DESIRED BLOCK NUMBER 

* USED BY THE INACTIVITY TIMER 
SHUT_DUWN RMB 1 

IF BD_MODE 

* USED BY THE ALTERNATE FORMAT LOGIC 
TAPE TYPE RMB 1 

END-IF 



NOMBER OF BLOCKS PER TRACK 
RETRY COUNTER FOR FI ND.BLOCK 
" " " CRC ERRORS 
# of TICKS AFTER WHICH 10 SHUT OFF THE MOTOKS 
CRC BYTES FOR DATA BLOCKS 

BUFFER FOR BLOCK HEADERS 

FOR OSE BY READ_STOFF 

INITIAL STACK POINTER VALUE 

EXTERNAL RAM BLOCK BUFFER 



BLOCKS TRACK RMB 2 
FIND_TRIES RMB 1 
READ TRIES RMB 1 
OUIE? TIME EOU 250 
CRC " RMB 2 
CRC_END EUU * 
HEAD BUFFER RMB 9 
HEAD_END EQU * 
MOTION BIT RMB 1 
STACK SPrtCE RMB 30 
STACK EQU *-l 

BUFFER EOU 0400H 
BUFFER_END EOU WUFFER+l 024 

PROG 



X * X- X- * X * * -X- X * X X- X- * X X X- X X X X * -X X X X X X X X X- X X X X X X X X X X X X X- X X X X X X X X X X X * X X X X X X X X X X X X •) 

x The first thing to do is the stack, SCI and I/O port initialization 
x 

APP INI.T 



[33 



t. 

C 

o 
c 
c 
c 
c 
o 
c 
c 
c 
c 

G 

c 
c 
c 
c 
c 
o 
o 



FILE: TAPE_AI :> P : pADAMT HEWLETT -PACK ARD i TAPE_APP 
LOCATION OBJECT CODE LINE SOURCE LINE 

0000 262 ATP_APP 

0000 OF 

0001 8E003E 

0004 86DE 
0006 9702 
08 86FF 
OOOA 970 



OOOC 8615 
OOOE 9701 

0010 8607 
0012 9705 

0014 8604 
0016 9710 

0018 861A 
001A 9711 

001C 

001C CEOOFF 

001F 

001F 6F00 

0021 09 

0022 8C0080 
025 24F8 

0027 7AQ004 



002A OE 
002B 7E014C 

02E 

02E 700 OOF 
0031 2717 
033 8640 
35 950 8 
037 2711 
39 9608 
03B DC 09 
3D C307DO 
04 DO OH 
42 7A0 0F 
045 2603 



<c) Coleco 1903 Confidential 



Hon, 7 Nov 1983, 10:43 
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263 


SEI 




264 


LDS 


*STACK 


265 






266 


LDAA 


#STOPPED 


267 


SfAA 


MUfUR 


268 


LDAA 


tiuimiB 


269 


s r AA 


0DR1 


270 






271 


LDAA 


#00010101B 


272 


STAA 


D0R2 


273 






274 


LDAA 


#000001 lib 


275 


STAA 


0DR4 


276 






277 


LDAA 


#04H 


278 


STAA 


RMCR 


279 






280 


LDAA 


#1AH 


281 


STAA 


SCBR 


282 






283 


CLEAR RAM 




284 


LDX 


#O0FFH 


285 


REPEAT 




286 


CLR 


0,X 


287 


DEX 




288 


CPX 


#0080H 


289 


BH8 


REPEAT 



SET FOR WHEN WE JUMP HERE 
INITIALIZE 'I HE STACK POINTER 

set up the port for no Motion or writing 

set up the bit directions 

set up bit directions for MISC port 

set directions for address/status 



IN1T RATE AND MODE 

TO 62. 5K (rate) AND NRZ (Mode) 

also IE AND RE IN THE TRCS REG (enables and rec . int.) 



POINT TO TOP OF INTERNAL RAM 

CLEAR A BYTE 

DEC THE POINTER 

ARE WE AT THE BOTTOM? 

LOOP IF NOT 



290 
291 
292 
293 
294 
295 
296 
297 

2 9 8 * * * * X * X * * X * X- * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

299 x MAIN_LOOP: THIS IS I HE TAPE APPLICATION . 
30 

301 MAIN LOOP 

302 x FIRST SEE IF INACTIVITY T IM R HAS TIMED OUT 131 



DEC 

CLI 
J MP 



CURRENT RAM+4 



INIT TIMER 



INVALIDATE CURRENT„RAM 

ALLOW ADAMNET INTERRUPTS 

TO START, MAKE SURE TIMER GETS SET UP PROPERLY 



HAVE WE TURNED OFF THE MOTORS? 
BRANCH IF SO 



047 BD 026 A 
04A 
004A 9603 



303 TBI SHU1_0OWN 

304 BEG} MOTORS OKAY 

305 LDAA #OCF 

306 BIT A TCSR 

307 BEQ MOTURS_OKAY 

308 LDAA TCSR 

309 LDD (IriER 

310 ADDD #20 

311 »ri) OCR 

312 DEC SHUT_DOWN 

313 &HE MOTORS_UKAY 

314 x KILL MOTORS. 

315 x ASSUME THAT WANTED_DRIOE IS STILL CORRECT 
3 1 6 J S R S T i.) P _ F K W A R D 

317 MOTOR S_OK AY 

318 LDAA MISC SEE IP CASSETTE IN PLACE 



SET BIT TOR OUTPUT COMPARE 
ONE MbEC HASN'T OCCURRED 
CLEAR OCR FLAG 



ANOTHER TWO MSEC 



HAS THE WHOLE 5UU mSEC ELAPSED? 



O 



c 

c 

c 

c 

e 

c- 

c 

o 

c 

c 

c 

c 

c 

c 

c 

c 

G 

G 
G 



FILE! TAPE_APP spADAMf HEWLETT-PACKARD : TAPE_APP < c > Coleco 1983 Con+'iden t ia J. 
LOCAT ION OBJECT CODE LINE SOURCE LINE 



BRANCH IE SO ~~ NO PROBLEMS 
CHECK MOTION BIT NEXT 



Mori, 7 Nov 1903, 10:43 
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04C 


8502 


04E 


261 B 


0050 


9607 


52 


8510 


054 


2706 


056 


C604 


58 


1)7 


05A 


2019 


05C 




05C 


C603 


005E 


1)70 


0060 


7D0O0B 


0063 


2710 


0065 


86FF 


0067 


9704 


069 


200A 


006B 




006B 


9600 


06D 


8103 


6F 


2504 


0071 


C600 


73 


D70 


075 




075 


9607 


077 


8520 


0079 


2619 


07B 


8508 


007D 


2706 


07F 


C604 


0081 


D700 


083 


2019 


0085 




085 


C603 


087 


D70 


089 


7DOO0B 


08C 


2610 


08E 


86FF 


090 


9704 


092 


20 A 


094 




094 


960 


96 


8103 


098 


2504 


09A 


C60 


9C 


D70 


09E 




009E 


960 


00A0 


278C 


0OA2 


OF 


A3 


81FF 


AS 


2718 


0A7 


BD0334 


OOAA 


240 3- 


AC 


7E0134 


OOAF 




01) AF 


81 A A 



319 




BIT A 


#CIP1 


320 




BNE 


DK1_0I< 


321 




LDAA 


status 


322 




BITA 


♦MOTIGN1 


323 




BEG) 


CHK1_1 


324 




LDAB 


#0 NODRIVE 


3 k. u 




STAB 


TAP£_SIAIUS1 , D 


326 




BRA 


CHKO 


32/ 


:hki_i 






320 




LDAB 


#S NOTAPE 


329 




STAB 


fAPE_STATUSl ,D 


330 




TST 


WANTED DRIVE,D 


331 




BEQ 


CHKO 


332 




LDAA 


#255 


333 




STAA 


CURRENT RAM+4,D 


334 




BRA 


CHKO 


335 


DR1_0K 






336 




LDAA 


TAPE STATUS1,D 


667 




CMPA 


*S_NOTAPE 


338 




BLO 


CHKO 


66? 




LDAB 


#S OK 


340 




STAB 


TAPE_STATUS1,D 


341 


CHKO 






342 




LDAA 


STATUS 


343 




BIT A 


#CIP0 


344 




BNE 


DRO OK 


345 




BITA 


♦MOTIONO 


346 




BEQ 


CHK0_1 


347 




LDAB 


*S NODRIVE 


348 




STAB 


TAPE STATUS0,D 


349 




BRA 


CHK_8IG 


350 


CHI<0_1 






351 




LDAB 


#S NOTAPE 


352 




STAB 


TAP£_STATUSO,D 


353 




1ST 


WANTED DRIVER 


354 




BNE 


CHK SIG 


,555 




LDAA 


*255 


356 




STAA 


CURRENT RAM«4,D 


357 




BRA 


CHK„SIG 


358 


DR0_OK 






359 




LDAA 


TAPE_STATUSO,D 


360 




CMPA 


*!i NOTAPE 


361 




BLO 


CHK SIG 


362 




LDAB 


#SJ.)I< 


363 




SIAB 


TAPE_STATUSO,D 


364 


CHK_SIG 






365 




LDAA 


M_S1G,D 


366 




BEU| 


MAIN_LOUP 


367 








368 




SEI 




369 




CriPA 


#C„RESET 


37 




BEQ 


EXEC_RESET 


67 11 




JSR 


CftLC_PHYG 


372 




BCC 


Mh1N„1 


373 




J MP 


NO_DLOCK 


374 


MAIN_1 






375 




CMPA 


*C COMMAND 



BRANCH IF IAPE OUT 

IF MOTION AND NO CASSETTE — - NO DRIVE 



IF WE'RE TALKING 10 DRIVE 0, WE DON'T WANT 10 TRASH CURRENT_RAM 
[4AJ 
[4AJ 



SEE WHAT'S ALREADY REPORTED 
DON'T CLOBBER LOW MESSAGES 



IS THERE A CASSETTE? 

BRANCH IF SO — ALL IS WELL 

IS THERE MOTION? 

NO — SHOW NO TAPE 

ELSE SHOW THERE IS NO DRIVE 



SHOW NO TAPE 



IF WE'RE NOT TALKING TO DRIVE 0, WE DON'T WANT TO TRASH CURRENT_RAM 
14A1 
I4A3 



SEE WHAT'S ALREADY REPORTED 
DON'T CLOBBER LOW MESSAGES 



GET THE MAC'S BYTE 
LOOP if NOTHING (0 DO 

DISABLE SINCE WE'RE PROCESSING 

BRANCH Ih RESET COMMAND 

CONVLR T LOGICAL DRIVE/BLOCK I'U PHYSICAL 

BRANCH IF ALL IS WELL 

LLSE JUMP TO SHOW ERROR 



G 



c 

O 

e 
c 
c 
c 
o 
c 
o 
c 
c 
o 
c 
o 
o 

o 
o 
# 

o 



FILE: TAPE..APP ipADAMT HEWLETT-PACKARD: TAFE_APP <c) Coleco 1VU3 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 
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00B1 


2669 


0B3 


9601 


Q0B5 


81 OB 


0B7 


2721 


0B9 


81 OC 


OOBB 


274V 


QOBD 


265D 


OOSF 




OOBF 


8600 


00C1 


97 OB 


0C3 


BD0387 


0C6 


2503 


0OC8 


BD0210 


OOCB 




OOCB 


8601 


CD 


97 OB 


OOCF 


BD0387 


0GD2 


2503 


0D4 


BD021Q 


0OD7 




0D7 


7E0OO0 



OODA 




DA 


BD0 387 


OODD 


2541 


OODF 


860 3 


0E1 


9714 


0E3 




0E3 


BDG15D 


00E6 


254C 


0E8 


BD0 3B9 


OOEB 


DC 


ED 


DDOO 


OOEF 


DC 02 


00F1 


DD02 


0F3 


9604 


0F5 


970 4 



OOF 7 B.D02D1 



376 
3/7 
378 
679 
380 
301 
382 
303 
384 
305 
306 
S87 
388 
309 
390 
391 
392 
393 
394 
395 
396 
397 
398 
699 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
410 
419 
420 
421 
422 
423 
424 
425 
426 
427 
420 
429 
430 
431 
432 



BRANCH IT INVALID COMMAND 
FIND OUr WHAT MAC WANTS 

READ THE TAPE 

WRITE THE TAPE 

REWIND THE TAPE 

BRANCH IF INVALID OPERAND 



X X X X X X * X X X X * X X X X * X * X X * X X X X X X * X X X X X X X X X X X X X X X X X X X X X X X 

EXEC RESET 



BNE 


CMD_COMP 


LDAA 


M_DATA,D 


CMPA 


#C READ 


BEQ. 


EXEC_R 


CMPA 


*C WRITE 


BEQ 


EXEC W 


CMPA 


*C_REWIND 


BtU. 


EXEC_REW 


BNE 


CMD COMP 



CHECK 1 



CHECK 2 



LDAA 


#0 


STAA 


WANTED_DRIVE,D 


J BR 


C1P 


BCS 


CHECK _t 


JSR 


REWIND 


LDAA 


#1 


STAA 


WANTED DRIVE,D 


JSR 


C1P 


BCS 


CHECK 2 


JSR 


REWIND 



CHECK FOR TAPE 
BRANCH IF NOT 
ELSE REWIND IT 



IN DRIVE 



CHECK FOR THE OTHER TAPE 
BRANCH IF NOT THERE 
ELSE REWIND IT 



JMP 



APP INIT 



X*XXXXX*XXX**XXXXXXXXXXXXXXXXXXXXXXXXX*XXXXXXXXXXXXXXXXX*XXXXXX*XXX 

x THIS ROUTINE JUST REWINDS THE TAPE. 



jEXEC REW 
j JSR 
j BCS 
; JSR 
; BRA 



C1P 

NO_CASSETTE 
REWIND 
CMD COMP 



SEE IF THERE'S A CASSETTE 
BRANCH IF NO TAPE IN THAT DRIVE 
ELSE REWIND THE TAPE 



X X X X X X X X X- X X X * X X X X * X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X * X X X X X X X X X X X X- X X X- 

x THIS ROUTINE READS A BLOCK FROM THE TAPE INTO THE BLOCK BUFFER. 



EXEC R 



RETRY 



JSR 
BCS 
LDAA 
STAA 

JSR 

BCS 

JSR 

LDD 

SID 

LDD 

STD 

LDAA 

STAA 

IF 

JSR 

fcLSE 

JSR 

ENDIF 



CIP 

NO_CASSETTE 

#3 

READ TRIES,!) 



CHECK FOR 
BRANCH IF 
SET RETRY 



CASSETTE 
IT'S NO! 
COUNTER 



THERE 



FIND BLOCK 

NU_DLOCK 

READ_BLOCI< 

COMMAND_BUFFER 

CURRENT Ir AM, D 

C M h A N D _ B L.I F F E R ♦ 2 , D 

CURRENT _R AM* 2, D 

C0MMAND_BUFFER+4,D 

CURRENT _RAM» 4, D 

CS_MODE 

CALC SUM CALC 



CO LOOK FOR THE BLOCK 
KRANCH IF IT ISN'T AROUND 
ELSE CONTINUE TO READ THE DATA & CRC 
D COPY COMMAND BUFFER TO CURRENT RAM 



THE NEW SUM L 4 'J 



CALC CRC 



CALC THE NEW CRC 



FILE: TAPE_APP spADAMT Hfc.WL.ETT -PACKARD : TAPE_APP (c) Co lee o 1983 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 
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o 



r^ 






O 



O 



0FA 


B30 015 


OOFD 


2710 


00FF 


7A0014 


0102 


26DF 


01 04 


2Q2A 



0106 
0106 
0109 
010B 
010D 



BD0387 
251 5 
86FF 
9704 



01 OF BD02D1 



0112 DD15 

0114 BD015D 
0117 251B 
0119 BD04CC 



011C 




one 


8600 


011E 


2016 


0120 




0120 


DC 


0122 


DD00 


0124 


DC 02 


1 26 


DD0 2 


0129 


9604 


1 2A 


9704 


012C 


8603 


012E 


20 06 


0130 




0130 


8601 


0132 


20 02 


0134 




0134 


8602 


0136 




0136 


7D0 0QB 



433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
48 
481 
482 
483 
484 
485 
486 
487 
488 
489 



COMPARE" TO READ CRC 

WE'RE FINISHED IF NO ERROR 

ELSE DEC RETRY COONIER 

FAILED AFTER RETRYING CRC ERRORS 



X X * X * X X X X X X « X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X * X X X X X X X X X X X X X X X X X 

x THIS ROUTINE WRITES HIE CONTENTS OF THE BLOCK BUFFER ON 10 THE 
x TAPE. 



SUBD 


CRC 


BEQ 


CMD_COHP 


DLC 


READ TRIES 


BNE 


RETRY 


BRA 


CANT READ 



EXEC W 



JSR C1P 

BCS NO_CASSETTE 

LDAA #255 

STAA CURRENT_RAM+4,D 



CHECK FOR CASSETTE 
DRANCH IF SLOT EMPTY 
MAKE CURRENT RAM INVALID 



j BLOCK LOCKOUT CODE- CHANGE D1SAB_0 TO ALLOW/DISALLOW WRITES 



LDAA 
ORAA 
OR A A 
BEQ 

IF 

JSR 

ELSE 

JSR 

ENDIF 

STD 

JSR 
BCS 
JSR 



COMMAND BUFFER, D 
COMMAND BUFFER+1,D 
#1-DISAB_0 
CMD COMP 



CS_MQDE 
CALC_SUM 

CALC_CRC 

CRC,D 

FIND BLOCK 
NO_BLOCK 
WRITE BLOCK 



TELL THE POOR SAP THAT IT WORKED, EVEN THOUGH WE DIDN'T TRY 

CALCULATE THE BLOCK'S SUM E4] 

CALCULATE THE BLOCK'S CRC 

SAVE IT 

LOOK FOR THE BLOCK 
BRANCH IF IT ISN'T THERE 
ELSE GU WRITE THE DATA & CRC 



*xxxx*xxxx*k**xx*x***xxxxxxxxxx*xx*xx*x»»xxxxxxxxxxxxxxxxxx*xxxxxxx 
x ALL COMMANDS RETURN HERE WHEN THEY COMPLETE. 

CMD COMP 

LDAA #S_OK SHOW NO ERROR 

BRA ERR_COMMON 

NO_CASSETTE 

) COPY COMMAND_BOFFER INTO CURRENT RAM 
LDD CUMMAND_BUKFER,D 

CURRENT _R AM, D 
C0MMAND_BUFFER+2,D 
CURRENT~RAM«2,D 
C0ttMAND_BUhFER+4,D 
CUMMAND_BUI T ER M , D 
#S_NOTAPE 
ERR COMMON 



STD 

LDD 

STD 

LDAA 

STAA 

LDAA 

BRA 

CANT_KEAD 

LDAA 
BRA 

NO_BLOCK 

LDAA 

ERR..COMMON 
1ST 



SHOW WE'RE MISSING A TAPE 
SHOW WL" CAN'T READ THE Bl OCK 



#8_BADDLK 
ERR_CUMMDN 

#S NO BLOCK 



WANTEI)_DRIVL,D WHICH DRIVE ARE WE PLAYING WITH? 



("'■ 

o 
c 
e 
o 
c 

G 
G 
O 
G 

o 

o 

G 
O 
G 
G 
G 
G 

G 
# 



FILE: TAPE_APPspADAMf HEWLETT PACKARD! TAPE_APi 
LOCATION OBJECT CODE LINE SOURCE LINE 



(c> Coiec. o 1983 Confident la J. 
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PAGE 11 



0139 


2604 


013B 


9700 


0131) 


2002 


013F 




D13F 


9700 


0141 




0141 


7FOO00 


0144 


9611 


0H6 


9612 


0148 


86 IB 


014A 


9711 


014C 




014C 


9608 


Q14E 


DC09 


0150 


C307DO 


0153 


DDQB 


0155 


86FA 


0157 


970F 


0159 


OE 


015A 


7E002E 



015D 




015D 


8606 


015F 


9713 


0161 




0161 


7D00 13 


0164 


2602 


1 66 


OD 


1 67 


39 


0168 




0168 


960B 


016A 


9106 


1 6C 


2606 


016E 


96 OC 


0170 


9 1 7 


0172 


2 7 IB 



0174 

0174 96 OB 
0176 9706 
0178 960C 



490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
523 
524 
c ; '■' ■=•. 

526 
527 
528 
529 
530 
531 
532 

534 
535 
536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 



err_i branch xf drive t 

TAPE S1ATUS0,D PUT 1 HE BYTE PUR DR1VE0 
ERR_END 

TAPE_STATUS1,D PUT THE BYTE PUR DRIVE1 

H SIG,D GO IDLE NEXT TIME THROUGH 

SCSR 

RDATA 

#1BH 

SCSR j ENABLE RCVR 1NTRPTS 



BNE 

SIAA 

BRA 
ERR_1 

81 AA 
ERR END 

CLR 

LDAA 

LDAA 

LDAA 

81 AA 
INIT.TIMER 
* SET UP INACTIVITY TIMER FOR 500 mSECQNDS [33 

LDAA TCSR CLEAR TIMER FLAG 

LDD TIMER 

ADDD *20 TWO MSEC 

STD OCR 

LDAA #WUIET TIME 

STAA SHUT DOWNED 



CLI 
» BACK FOR MORE ABUSE 

JMP MAIN LOOP 



RE-ENABLE INTERRUPTS 



* This subroutine will try to find the block whose number is in 

* WANTED_BLOCK, whose track nunber is in WANTED_TRACK , and whose 
-* drive nunber is in WANTED_DRIVE. 

* When the block is found, this returns with the tape in Motion, with 

* the head between the header and the data block. If it can't 

* be found, it returns with the tape stopped and the carry set, 



FIND BLOCK 

LDAA 
STAA 

FIND BLOK 

1 ST 
BNE 
SEC 
RTS 

FIND AGAIN 

LDAA 
CMP A 
BNE 
LDAA 
CMP A 
Bfc.13 



#6 
FIND_IR1ES,D 

F1ND_TRIES,D 
FIND AGAIN 



WANTED_DR1VE,D 
DKJ.VE_.NUM, l> 
SET VARS 

wanted, crack, d 
1rack num,d 
same Track 



ALLOW OURSELVES 6 TRIES TO GET THE BLOCK 



HAVE WE USED UP ALL OUR TRIES? 
BRANCH IF NOT 
SHOW AN ERROR 



COMPARE 10 CUR KENT DRIVE 
BRANCH IF NOT 1 HE SAME 



COMPARE TO CURRENT 
BRANCH if I'HE SAME 



TRACK NUMBER 



•x If the drive nunber or track nuMber is different froM the last 
* tine we were called, we'Jl have to read a header froM that 
x desired drive/track to see where it is positioned. 



SET VARS 



LDAA WANiED_DKIVE,D 

SIAA DKlVE„NUii,D 

LDAA WbNTED_TKACK,D 



UPDATE THE PARAMETERS WE ALREADY KNOW 



c 



r*. 



FILE: TAPE„APP ipADAMT HEWLETT-PACKARD! TARE_AFP (c) Coleco 1903 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Hon, 7 Nov 1983, 10 :4b 



PACE l; 







O 

# 

O 



017A 


9707 


017C 




017C 


BD03E2 


017F 


240 a 


0181 


7E01BF 


0184 




0184 


DC19 


0186 


9301) 


0188 


2602 


018A 


OC 


018B 


39 


018C 




1 8C 


BD026A 



018F 




Q18F 


DCOD 


0191 


9308 


0193 


2602 


0195 


2061 


0197 




0197 


4D 


0198 


2B31 


019A 


2606 


019C 


CI 05 


019E 


2402 


01AO 


2056 


01A2 




01A2 


830004 


01A5 


BD0257 


01A8 


• 


01A8 


BD0315 


01AB 


BD03A1 


1 AE 


25 OF 


01 BO 


830001 


01B3 


26F3 


01B5 


BD026A 


01B8 


7A0 013 


01BB 


26 BF 


01BD 


OD 


01 BE 


39 


OIBF 




OIBF 


BD026A 


01C2 


DC11 


01C4 


930D 


01C6 


BD0294 


01C9 


2008 


OICB 




OICB 


43 


01CC 


53 


01 CD 


C30 05 


01D0 


BD 0294 



547 
548 
549 
55 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
567 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
579 
580 
581 
582 
583 
584 
585 
506 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 



STAA 

F'IND_HEAD 

JSR 
BCC 
J MP 

GOT HEAD 

LDD 

SUBD 

BNE 

CLC 

RTS 

NOT IT 

JSR 



TRACK_NUM,D 



READ THE NEXT BLOCK NUMBER 



READ HEADER 

GUT HEAD 

FWD_STALL REWIND & TRY AGAIN IF CAN'T GET HEADER 

HEAD BUFFER+2,D LOOK AT THE BLOCK NUMBER WE JUST READ 
WANTED_BLOCK,D IS THIS THE ONE WE WANT? 
NOT IT" BRANCH IF NO! 
RETURN IF SO 



STOP_FORWARD ELSE STOP THE TAPE 
* Now we know where that drive/track is positioned 



SAME TRACK 

LDD 

. SUBD 

BNE 

BRA 

GO LOOK 

rSTA 

BMI 

BNE 

CMPB 

BHS 

BRA 



FORWARD 



SUBD 
JSR 



FWDLOOP 



JSR 

JSR 

BCS 

SUBD 

BNE 

JSR 

DEC 

BNE 

SEC 

RTS 

FWD STALL 

JSR • 

LDD 

SUBD 

JSR 

BRA 



BACKUP 



COMA 
COMB 
ADDD 
JSR 



WANTED BLOCK, D 

BLOCK NUM,D COMPARE TO NEXT BLOCK 

GO LOOK BRANCH IF THIS ISN'T IT 

JUST AHEAD BRANCH IF WE'RE THERE 



BACKUP 
FORWARD 
#5 

FORWARD 
JUST AHEAD 



#4 

FAST FORWARD 



SK1P_BL0CK 
CHECK MOTION 
FWD_S"?ALL 
#1 

FWDLOOP 
STOP JFOR WARD 
F1ND_TR1ES 
FIND HEAD 



BRANCH IF IT'S BEHIND US 
BRANCH IF IT'S A LONG WAY AHEAD 
IS IT LESS THAN 5 BLOCKS AHEAD? 
BRANCH IF NOT — MOVE JAPE FAST 
ELSE JUST GO READ IT 



SET 10 COME GUI OF HYPERSPACE A LITTLE EARLY 
START THE TAPE FORWARD 



WAIT WHILE A BLOCK PASSES 
IS THE TAPE STILL ROLLING? 
BRANCH IF NOT 
DEC. THE BLOCK COUNT' 
LOOP UNTIL WE GET THERE 
STOP THE TAPE 

AND SEE WHERE WE ARE 



STOP FORWARD TURN OFF THE MOTURS 

BLOCKS TRACK, D FIGGl'N OUT HOW FAR BACK TO GO 15] 

WANTED~BLOU<,D 

FAbT .REVERSE 

REVLOUP 



NEGATE THE VALUE TO GET DISTANCE 

#1+4 (SET IT TO COME OUT OF HYPERSPACE A LITTLE LATE) 

FAST REVERSE START THE TAPE REVERSE 



V 



c 



^ 



FILE: TAPE_APP : pADAMT HEWLETT-PACKARD: TAPE_APP <c) Coleco 1V83 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 
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PACE 13 







G 
C 

o 
# 
o 



01D3 




01D3 


BD0315 


01D6 


BD03A1 


01D? 


25 OF 


01DB 


830001 


01DE 


26F3 


01E0 


BD02A7 


01E3 


7A0013 


01E6 


2694 


01E8 


OD 


01E9 


39 


U 1 EA 




01EA 


BD02A7 


01 ED 


CCOOOO 


OlFO 


DD08 


01F2 


7A0013 


01F5 


7E0161 


01F8 




01F8 


BD03E2 


01FB 


25C2 


1 FD 


DCOD 


01FF 


9319 


0201 


270B 


0203 


2AF3 


0205 


BD026A 


0208 


7A0O13 


020B 


7E0161 


020E 




020E 


OC 


020F 


39 



210 




0210 


37 


0211 


36 


0212 


7D0 0B 


02 IS 


2604 


0217 


86CD 


0219 


20 02 


02 IB 




021 B 


86CK 


021 D 




U21D 


9702 


02 IF 


BD0 2E2 


0222 




0222 


BD03A1 


0225 


24 FB 


0227 


BD02A7 



604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 



REVLOOP 

JSR 

JSR 

BCS 

SUBD 

BNE 

JSR 

DEC 

BNE 

SEC 

RTS 

REM STALL 

JSR 
LDD 
SID 
DEC 
JMP 

JUST AHEAD 
JSR 
BCS 
LDD 
SUBD 
BEQ 
BPL 
JSR 
DEC 
JMP 

FOUND IT 



SK1P_BL0CK 
CHECK .MOTION 
REV_STALL 
*1 

REVLOOP 
STOP_REVERSE 
FIND TRIES 
FIND HEAD 



STOP REVERSE 

#0 

BLOCK NUM,D 

FIND TRIES 

FIND BLOK 



WAIT WHILE A BLOCK PASSES 
IS THE TAPE STILL ROLLING? 
BRANCH IF NOT 
DEC. THE BLOCK COUNT 
LOOP UNTIL WE GET THERE 
SI UP THE TAPE 

AND SEE WHERE UE ARE 



TURN OFF THE. MOTORS 
UPDATE THE BLOCK NUMBER 

COUNT THIS AS A TRY 
AND TRY AGAIN 



GET THE NEXT HEADER 



READ HEADER 

FWD_STALL 

WANTED BLOCKED 

HEAD BUFFER+2,D IS THIS THE BLOCK 



FOUND IT 
JUST_AH£AD 
STOP_FORWARD 
FIND TRIES 
FIND BLOK 



BRANCH IF YES 
LOOP if IT'S JUST AHEAD 
ELSE WE MISSED IT! ! 
COUNT THAT AS A TRY 
AND TRY AGAIN 



CLC 
RTS 

* This subroutine rewinds the tape. It checks the value in WAN IED_i)RIVE 

* to see which drive is being referred to. It as.sunes the tape is stopped 
x when it is called, It exits with the tape stopped, and it zeroes the 

* BLOCK_NUM. This always disables writing when it starts the motor. 



REWIND 



REW1 



REW 



REU2 



PSHB 

PSHA 

1ST 

BNE 

LDAA 

BRA 

LDAA 

B I AA 
JSR 

JSR 
BCC 
JSR 



WANTED DRIVE, D WHICH DRIVE? 
REW1 



♦REVFAST0 
RtW 

♦RLVFAST1 

MOTOR 
PAUSE 

CHECK MOTION 

REW2 

STOP REVERSE 



run the tape in reverse 



let the sucker get up to speed 

check the Motion bit 
loop if still Moving 
then stop the drive 



c 

o 
e 
o 
e 
o 
e 
o 
o 
c 
c 
c 
o 
o 
o 

G 
G 
G 
G 
G 
• 
G 



FILE: l'APE_APP:pADAMf ll-WLETT -PACKARD : TAPE_APP (c) Coieco 1983 Confidential 
LOCATION OBJECT CODE LINE SOORCE LINE 
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PAGE 



022A 


BD02E2 


022D 


BB02E2 


0230 


CC0 00 


0233 


DD0O 


0235 


32 


0236 


33 


0237 


39 



0238 




0238 


36 


0239 


37 


023A 


7D000B 


023D 


2604 


023F 


86D4 


0241 


20 02 


0243 




0243 


86D2 


0245 




0245 


D602 


0247 


C4CO 


0249 


84 3 F 


024B 


IB 


024C 


9702 


024E 


BD02EB 


0251 


BD02EB 


0254 


33 


0255 


32 


0256 


39 



0257 




0257 


36 


0258 


7D0 00B 


025B 


2604 


025D 


86D5 


025F 


2002 


0261 




0261 


86D3 


0263 




0263 


9702 


265 


BD02EB 


0268 


32 


269 


39 



661 
662 
663 
664 
665 
666 
667 
668 
669 
6/0 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 

70 
701 
702 
703 
704 
705 
706 
707 
708 
709 
710 
7 1 1 
712 
713 
714 
715 
716 

7 1 7 



JSR 


PAUSE 


JSR 


PAUSE 


LDD 


#0 


STD 


BLOCK _NUH,D 


PULA 




PULB 




ins 





let the bouncing stop 
zero the block 



* X * K X X X X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X XX 

x This subroutine starts the tape Moving in a forward direction. 

x It assumes the tape is stopped when it is called, but it exits 

x with the tape in Motion. It checks the value of WANrED_DRIVE to 

x determine which drive is in question. This doesn't alter write enable 

GO FORWARD 

PSHA 

PSHB 

7 81 

BNE 

LDAA 

BRA 



GQF1 



G0F2 



WANTED DRIVE, D 
GOF1 

tFWDSLOWO 
G0K2 

#FWD8L0W1 

MOTOR 
#11000000B 
#0011 1 1 11B 

MOTOR 

PAUSE100 

PAUSE100 



tell the drive to move the tape 



PRESERVE WRITE ENABLES 

MIX OLD ENABLES WITH NEW MOTORS 

let the tape get up to speed 



LDAA 

LDAB 

ANDB 

ANDA 

ABA 

STAA 

JSR 

JSR 

PULB 

PULA 

RTS 

XXXXX*X*XX*KXX**»XXX**XXXXXXXXXXX»X*X*X*XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

x I'his subroutine starts the tape Moving fast in a forward direction. 
x It assumes the tape is stopped when it is called, but it exits 
x with the tape in motion. This always disables writing, 

FAST_FORWARD 
PSHA 
1ST 
BNE 
LDAA 
BRA 



WAN TED_DR I VE,D 

FASTF- 1 

ITWDFASI'Q tell the drive to Move the tape 

FASTF 



FAS1F1 



FASTF 



LDAA 

STAA 
JSR 
PULA 
RTS 



#FWT)I ; AST1 

MOTOR 
PAUSE10 



let the tape get partly up to speed 



X X X X X * X- X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

x This routine brings the tape to a halt from the forward direction, 
x It assuMes the tape is in motion forward when if is called, and 



c 
o 
c 
c 

e 
c 

p 

c? 

e 

e 
o 

G 

Q 
i" . 

O 

o 
o 

o 
o 
# 
o 



FILE; TAPE_APP jpADAMf HEWLETT-PACKARD: TAPE_APP ( c > Coleco 1903 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 
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PAGE IS 



026 A 




026 A 


36 


026B 


37 


026C 


3C 


026D 


CEFFFF 


027 


7000 0B 


0273 


2606 


0275 


86F4 


0277 


C608 


0279 


2004 


027B 


* 


027B 


86F2 


027D 


C610 


027F 




027F 


D507 


0281 


2709 


0283 


9702 


0285 




0285 


D507 


0287 


2703 


0289 


09 


028 A 


26F9 


028C 




028C 


86DE 


028E 


9702 


0290 


38 


0291 


33 


0292 


32 


0293 


39 



0294 




0294 


36 


0295 


7D00 0B 


0298 


2604 


029A 


86C0 


029C 


2002 


029E 




029E 


86CB 


02A0 




02 AO 


9702 


02A2 


BD02EB 


Q2A5 


32 


02A6 


39 



02A7 



718 

719 

720 

721 

722 

72i 

724 

725 

726 

727 

728 

729 

730 

731 

732 

733 

734 

735 

736 

7S7 

738 

739 

740 

741 

742 

743 

744 

745 

746 

747 

748 

749 

750 

751 

752 

753 

754 

755 

756 

757 

758 

759 

760 

761 

762 

763 

764 

765 

766 

767 

768 

76 V 

7/0 

771 

772 

773 

774 



x exits with the tape stopped. This always disables writing. 

STOP F- Ok WARD 
PSHA 
PSHB 
PSHX 
LDX 

rsr 

BNE 
LDAA 
LDAB 
BRA 



SF1 



SF 



LDAA 
LDAB 



B1TB 

Btq 

STAA 
STOPFWAIT 

BITB 
BEQ 
DEX 
BNE 
SF OK 



#8T0P TIMEOUT 

WANTED_DRIVE,D 

SF1 

•FWDSIOPO 

♦MUT1ON0 

SF 

tFWDSTOPl 
tMOriONl 

STATUS 
SF OK 
MOTOR 

STATUS 
SF_QK 

STOP F WAIT 

tSTOPPED 
MOTOR 



1N11 TIMEOUT COUNTER 

ELSE SEE WHICH DRIVE WE'RE USING 

BRANCH IF UBINU DRIVE 

ELSE SET FUR DRIVE 



SET FOR DRIVE 1 



IS THE DRIVE ALREADY STOPPED? 
BRANCH IF SO 
ELSE APPLY THE BRAKES- 
CHECK THE MOTION BIT 
BRANCH IF IT IS STOPPED 
DEC. TIMEOUT 
LOOP If NOT TIMED OUT YET 

then set everything to idle state 



LDAA 
STAA 
PULX 
PULB 
PULA 
RTS 

«**«*« X****X*«*««»*X*******K*»*************«***« ***************** ******* 

* This subroutine starts the tape Mowing fast in a reverse direction. 

* It assuwes the tape is stopped when it is called, but it exits 

* with the tape in notion. this always disables writing. 



FAST REVERSE 
PSHA 
TST 
BNE 
LDAA 
BK'A 



FASf'Rl 



FASIR 



LDAA 

SIAA 
JSR 
PULA 
RTS 



WANTED_DRIVE,D 

F-ASTR1 

#REVFAS(0 tell the drive to Move the tape 

FASTR 

♦REVI-ASTl 

MO) OR 

PAUSE10U let the tape get partly up to speed 



■X X X X X- X X X X- * X- X X X X X X X X X X X X X X X X X X X X- X- X X X X X X X- X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

* (has routine brings the tape to a halt froM the reverse direction, 
x It assuMes the tape is in Motion forward when it is called, and 

* exits with the tape stopped. Ihis always disables writing. 

STOP REVERSE 



c 
c 
c 
c 
e 
c 
e 
c 
e 
c 
c 
c 
c 
c 
o 
c 
o 

c 
o 
# 



FILE: TAPE_APP : pADAMT HEWLETT! --PACKARD ; IAPE_APP <c> Coleco 1V03 Confidential 
LOCATION OBJECT CODE LINE SUORCE LINE 



Hon, 7 Nov 1903, 10 ', A', 



'AGE 16 



02A7 


36 


Q2A8 


37 


02A9 


3C 


02AA 


CEFFFF 


02 AD 


7D000B 


02B0 


2606 


02B2 


86EC 


02B4 


C60O 


02B6 


2004 


02B8 




02B8 


86EA 


02BA 


C610 


02BC 




02BC 


D507 


02BE 


270 V 


02CO 


9702 


02C2 




02C2 


D507 


02C4 


2703 


02C6 


09 


02C7 


26FV 


02C9 




2C9 


86DE 


02CB 


9702 


02CD 


38 


02CE 


33 


02CF 


32 


02DQ 


39 



02D1 




02D1 


CCOOOO 


02D4 


CE040 


02D7 




02D7 


EBOO 


02D9 


8900 


02DB 


08 


02DC 


8C08 


2DF 


26F6 


02E1 


39 



775 
776 
77? 
770 
779 
700 
781 
702 
703 
704 
785 
706 
707 
708 
709 
790 
791 
792 
7V3 
794 
795 
796 
797 
798 
799 
OOO 

002 
803 
804 
805 
006 
807 
OOO 
809 

01 
Oil 
012 
813 
014 
015 
016 
817 
010 
019 

02 
821 
822 
023 
024 
025 
026 
027 
028 
027 
83 
031 



SRI 



SR 



PSHA 

PSHB 

PBHX 

L0X 

TBI 

BNE 

LDAA 

LDAB 

BRA 

LDAA 
LDAB 



BITS 

BE« 

STAA 

STOPRWAIf 

B1TB 
BEQ 
DEX 
BNE 

SR OK 



*ti J UP ..TIMEOUT 

WANTED DRIVE, U 

SRI 

tREVSTOPO 

#H0T10NU 

SR 

#REVS10P1 
♦MOriONl 

STATUS 
SR OK 
MOTOR 

STATUS 
SR_UK 

STOPRWAIT 

♦STOPPED 
HOTOR 



BRANCH IF USINC DRIVE 
ELSE SET FOR DRIVE 



SET FOR DRIVE 1 



IS THE TAPE ALREADY STOPPED? 

BRANCH IF SO 

ELSE APPLY THE BRAKES 

CHECK THE MOTION BIT 
BRANCH IF IT IS SIUPPED 
DEC. TIMEOUT COUNTER 
LOOP IF WE HAVE TIME LEFT 

then set everything to idle state 



LDAA 
STAA 
PULX 
PULB 
PULA 
RTS 

IF CS_MODE 

***** -X **** XX* XX X**X ****** X XX* XXX* *X****** ***** *X**X****X***X*X XX* ****** 

x This routine calculates the sum of the data in the Ik buffer and 

x returns it in the D register. The 2 byte buffer (sane as the one 

x used for CRC calculations) is allowed to overflow 

* 

CALC SUM 



CALC S2 



LDD 
LDX 

ADDB 

ADCA 

INX 

CPX 

BNE 

RTS 



#0 
SBUFFER 

0,X 
#0 

#BOKrER_END 
CALC S2 



ELSE 

•X- -X- -X- X X- * * X- X X * X X X X X X- * X X X X X X * X- X X X X X X * * X X X X * * X X X X X X X X X X X X X X- X X X X X X X X X X * X X X X X X 

x This routine calculates the CRC of the data in the li< buffer and 
x returns it in the D register. 

x I'he algorithM used here ca Icuiates CRC1 6 . The MeMory buffer is 
x looked at bit by bit. For each bit, we EOR it with the bottoM 
x bit of the CRC register, The result is then EORed with bits 
x 14 and 1 of the CRC register, 'Finally, the CRC register is 
x shifted right, with the calculated bit being shifted into the 
x top of the register. 



FILE.! TAPE_APP spADAMT HEWLETT-PACKARD: J AI'E„APP <c) Co'leco 1V03 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Mon, 7 Nov 1783, 10:4", 



PAGE 17 



~\ 



02E2 




02E2 


3C 


02E3 


CEFEEF 


02E6 




02E6 


09 


02E7 


26FD 


02E9 


38 


02EA 


3? 



02EB 




02EB 


8D00 


02ED 




02 ED 


37 


02EE 


36 


02EF 


9608 


02F1 


DC 09 


021-3 


C3C35Q 


02F6 


DD0B 


2F8 


864 


02FA 





832 

833 

834 

835 

836 

837 

838 

839 

84 

841 

842 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

073 

874 

875 

876 

877 

878 

879 

880 

881 

882 

883 

884 

885 

886 

887 

880 



CALC CRC 

LDD 
Li)X 

CRC BYTE 

PSHA 
LDAA 
S1AA 
LDAA 
Si AA 
POLA 

CRC BIT 

PSHB 

LSL 

ADCB 

LSRB 

PULB 

BCC 

EORA 

EORB 

CRC SHIFT 

RORA 

RGRB 

DEC 

BNE 

INX 

CPX 

BNE 

RTS 

ENDIF 



#0 
♦BUFFER 



0,X 

TEMP,D 
#8 
B11CG0NT,D 



IE HP 
#U 



CRC SHIFT 

#010000008 

400000010B 



BIT COUNT 
CRC_BIT 

#BUFFER_END 
CkC BYTE 



IN 11 THE CKC 

INI T THE BUFFER POINTER 

GET THE BYTE FROM HIE BUFFER 
IN1T THE BIT COUNT 

EOR TEMP<7> AND REGB(O) INTO CARRY 



BRANCH IF RESULT IS ZERO 
ELSE EOR SOME CRC BITS 



SHIFT CRC, BRING IN NEW TOP BIT 

DONE ALL BITS? 

LOOP IF NOT 

ELSE POINT TO NEXT BYTE 

ARE WE DONE ALL BYTES? 

LOOP IF NOT 



x This routine just kills sone tine. 
PAUSE 



PSE1 



* * X X X K X X X X X X K X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

x This routine pauses for 100 Milliseconds to let the tape get up 
x to 20 ips. 



PSHX 




LDX 


fOFFFFH 


DEX 




BNE 


PSE1 


PULX 




RTS 





PAOSE10 

B8R 

PAUSESO 

PSHB 

PBHA 

LDAA 

LDD 

ADDD 

BID 

LDAA 

PAUSE50WAIT 



PAUSE 50 



iCBK 
TIMER 
#5000 
OCR 
#UCF 



READ THIS TO CLEAR FLAG JUST IN CASE 

GEI CURRENT I'irtLR VALUE 

ADD 50 MSEC 

PUT RtSULT IN 10 COMPARE REG, 

SE'l Bli 10 CHECK FOR GUI PUT COMPARE 



c 
o 



FILE'! TAPE_APP spADAMT HEWLE i ? -PACKARD : TAPE_APP (c) Coleco 1V83 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Men, 7 Nov 1983, 10:48 



PAGE IB 



o 



c 
c 

o 
o 

G 
G 

G 
G 
G 
G 
G 
• 
G 



Q2FA 


9508 


02FC 


27 FC 


02FE 


32 


2FF 


33 


0300 


39 



0301 




0301 


37 


0302 


36 


0303 


96 0B 


0305 


DC 09 


0307 


C303E8 


030A 


DD0D 


030C 


8640 


030E 




030E 


9508 


0310 


27FC 


0312 


32 


0313 


33 


0314 


39 



0315 




0315 


36 


0316 


37 


0317 


3C 


0318 


CE0007 


031B 




031 B 


BOO 7 


03 ID 


09 


031E 


26FB 


0320 


38 


0321 


33 


0322 


32 


0323 


39 


0324 




0324 


960 8 


0326 


DC 09 


0328 


C37D00 


032B 


I) DOB 


032D 


864 


032F 




0321- 


9508 


0331 


271- C 


0333 


39 



889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 



"1 CSR 
PAUBESOWAIf 



WAIT FOR OC FLAG 



BHA 

BEQ 

PULA 

POLB 

RTS 

X' X * X X X X X X X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

x This routine pauses for 1 Millisecond (1000 Microseconds). It can 
x be used to lengthen the gap when writing. 

PAOSE1 

PSHB 

PSHA 

LDAA 

LDD 

ADDD 

SID 

LDAA 
PAUSE1UAIT 

BIT A 

BED 

PULA 

PULB 

RTS 

XXX*XXXXX**»«XXX***XX*XXXXXXXXXX**XX*X»****»XXXXXXXXXXXXXXXXXXXXXXXXXXX 

« This routine pauses for the length of tine that it takes one block 

» to pass under the head at "90 ips. 

x 15000 BITS 6 714.3 bpi « 21.00 in. 

» At 90 ips, 21.00 in. travels by in 0.222222 sec. 

x 10/4 IT DRUPPED OUT TOO SOON- ADDED A LITTLE BIT HORE 

SKIP BLOCK 

PSHA 



TCSK 

TIMER 

#1000 

OCR 

#OCF 

TCSR 
PAOSE1UAIT 



READ THIS TO CLEAR FLAG JUST IN CASE 

GET CURRENT TIMER VALUE 

ADD 1 MSEC 

PUT RESULT INTO COMPARE REG. 

SET BIT TO CHECK FOR OUTPUT COMPARE 



WAIT FUR OC FLAG 



PSHB 
PSHX 
LDX 



SKIP LOOP 



SKIP 



SKIP WAIT 



BSR 

DEX 

BNE 

PULX 

PULB 

PULA 

RTS 



LDAA 

LDD 

ADDD 

SID 

LDAA 

r 

D1IA 
BEU 

R'SS 



#7 

SKIP 

SKIP LOOP 



it; br 

TIMER 
#320 
OCR 
*OCP 

1 CSR 
SKIP WAIT 



READ THIS TO CLEAR FLAG 
GEI CURRENT TIMER VALUE 
ADD THE NECESSARY TIME 
PUI' RESULT INK) CUHPAKE 
SEI BIT TO CHECK HJR <JU 



WAIT FOR OC FLAG 



JUST IN CABL 



REG 
PUT 



COMPARE 



FILE'! TAPE_APP s pADAMT HEWLETT-PACKARD! )APE_APP < c ) Coleco 1983 Confidential 
LOCATION OBJECT CODE LINE SUUKCE LINE 



Hon, 7 Nog 198,}, 1 ; 48 



'AGE 



C 

c 
c 

c 
c 
o 
o 
c 
c 
c 
c 
c 
c 

c 
c- 

o 



0334 


37 


0335 


36 • 


0336 


9604 


0338 


97 0B 


033A 


DC11 


033C 


2608 


33E 


BD03E2 


0341 


2525 


0343 


BD026A 


0346 




0346 


9601 


0348 


D60 


Q34A 


9311 


034C 


2410 


034E 


9601 


0350 


D600 


0352 


DDQD 



0354 BD036F 



0357 


7F00OC 


035A 


32 


035B 


33 


035C 


OC 


Q3SD 


39 


035E 




035E 


DD0D 


0360 


8601 


0362 


970C 


0364 


32 


0365 


33 


0366 


OC 


0367 


39 


0368 




0368 


BD026A 


036B 


32 


036C 


33 


0361) 


OD 


036E 


39 



036F 




036F 


7D0010 


0372 


2712 


0374 


DC11 


0376 


04 


0377 


D30I) 


0379 


DDOD 



946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 

loot 

11)02 



X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X- X X X X 

x This routine converts the logical block number in the command buffer 
x to a physical track t, block nunber in WAN TED_TRACK and WANTED_BLOCK , 



CALC 



PHYS 
PSHB 
P8HA 
LDAA 
ST A A 
LDD 
BNE 
JSR 
BCS 
JSR 



CALC UK 



C0MMAND_BUFFER+4,D COPY THE DRIVE NUMBER OVER 

WANTED DRIVE,D 

BLOCKS TRACK, D CHECK BLOCKS PER TRACK FUR VALIDITY 

CALC_UK BRANCH IF IT LUUKS UK 

READ HEADER ELSE GET A REAL NUMBER FROM EITHER TRACK 

CALC~BAD BRANCH if WE CAN'T 

STOP .FORWARD 

COMMAND BUFFER+1,D GET THE DESIRED BLOCK 

COMMAND_BUFFE'R,D 

BLOCKS TRACKED IS IT ON TRACK ZERO? 

CALC1 BRANCH if NOT 

COMMAND BUFFER+t,D ELSE GET THE BLOCK AGAIN 

COMMAND BUFFER, D 

WANTED BLOCK, D AND SET THE BLOCK 

BD^MUDE 

MANGLE NUM RE-MAP BLOCK* TO ACTUAL # 



WANTED TRACK 



AND CLEAR THE TRACK 



CALC1 



LDAA 

LDAB 

SUBD 

BHS 

LDAA 

LDAB 

STD 

IF 

JSR 

END IF 

CLR 

PULA - 

PULB 

CLC 

RTS 

STD 
LDAA 
STAA 
PULA 
PULB 
CLC 
RTS 
) 

JSR 
PULA 
PULB 
SEC 
RTS 

IF BD_MODE 

X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X 

x This routine handles the re-wapping of BD block numbers To real-live 
x useful block nunbers. Currently, we just add BLOCKS_T RACK/2 to the 
x nuMber, and wrap back to 
MANGLE NUM 



CALC BAD 



WANTED BLOCK, D SET THE BLOCK MINUS THE EXCESS 

#1 

WANTED TRACK, D AND SET THE TRACK 



STOP FORWARD 



on overflow 



1 ST 

BEQ 

LDD 

LSRD 

ADDD 

'3 !'D 



TAPE TYPE,D 

MANGL._END 

BI.OCKS_TRACK,D 

WANlED_BLOCK,D 
WANTED, BLOC K,D 



SEE WHERE THE DIRECTORY 
AT BEGINNING. GU AWAY, 

DIVIDE BY 2 

SAME IN CASE WE'RE DONE 



IS - 



FILE.: TAPE_APP ipADAMT HEWLETT-PACKARD! TA1'E_APP <c) Coleco 1903 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Mon, 7 Nov 1983, 10:40 



PAGE 2 



037B 


9311 


D37D 


2401 


037F 


3? 


0380 




0380 


DC0D 


0382 


9311 


0384 


DDOD 


0386 




0386 


39 



0387 




0387 


36 


0388 


7DG00B 


038B 


2608 


038D 


9607 


038F 


8520 


0391 


270B 


0393 


2606 


0395 




0395 


9603 


0397 


8502 


0399 


270 3 


039B 




039B 


32 


039C 


OC 


039D 


39 


039E 




039E 


32 


039F 


OD 


03AO 


39 



3A1 




03A1 


36 


03A2 


9607 


3A4 


70 OB 


03A7 


2606 


03A9 


8508 


03 A B 


270 6 


03 AD 


20 07 


03AF 




03AF 


8510 


03B1 


2603 


03B3 




03B3 


OD 


03B4 


32 


03B5 


39 



10 03 
10 04 
1005 
1006 
1007 
10 08 
10 0V 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
10 46 
1047 
10 48 
1049 
1050 
1051 
1052 
10 53 
1054 
1055 
10 56 
1057 
1058 
1059 



BLOCKS TRACK, D HAVE WE KEUUESTLD A NUN- EXISTENT BLOCK? 
MANGL_HI 

WE'RE OKAY. JUS! RETOKN 

WANTED_BLOCK,D SUBTRACT BLOCKS_TRACK TO GIT-SET BACK 

BLOCKS* I RACK ,D 

WANTED_BLOCK,D 1 HOPE YOU'RE HAPPY NOW, BOZO 



SUBD 

BHS 

RTS 
MANGL HI 

LDD 

SUBD 

SID 
MANGL_END 

RTS 

ENDIF 

* This routine sees if the drive indicated by the coMMand buffer contains a 
x cassette. It returns with the carry clear if it does, and set 

* if it doesn't. 



CIP 



PSHA 




1ST 


WANTED 


BNE 


CIP_1 


LDAA 


STATUS 


BITA 


#CIP0 


BEQ 


CIP 9 


BNE 


CIP_8 


LDAA 


M1SC 


BIIA 


*CIP1 


BEQ 


CIP 9 


PULA 




CLC 




RTS 




PULA 




SEC 




RTS 





LOOK AT THE DRIVE NUMBER 

BRANCH IF DRIVE 1 

GET THE DRIVE BIT 

TEST IT 

BRANCH IF IT'S NOT THERE 

BRANCH IF IT'S THERE 

GET THE DRIVE 1 BIT 

TEST xr 

BRANCH IF IT'S NOT THERE 



CIP 1 



CIP 8 



CIP 9 



X X X X X X X X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X- X X X X X X 

x This routine looks to see if the drive indicated by WAN f'ED_DRIVE is 
x in Motion or not. It returns the carry clear if there is Motion, 
x and set if no t . 

CHECK _hOTI ON 
PSHA 



CM1 



CM 2 



LDAA 
1ST 
BNE 
BJI'A 

BEU 
BRA 

BITA 

BNE 

SEC 

PULA 

RTS 



STATUS 

WAN (ED_DR I VE,D 

CM I 

♦MUTIQNU 

CM 2 

CM 3 

♦MOT10N1 
CM 3 



GET THE MOTION BITS 

BRANCH FOR DRIVE 1 
CHECK HERE FOR DRIVE 
BRANCH IF NO MOTION 
BRANCH IF (APE IS BULLING 

CHECK H» RE F-OR DRIVE 1 
BRANCH IF TAPE IS ROLLING 

SHOW NO MO I ION 



FILE: TAPE_APP :pADAMT HEWLETT-PACKARD: TAPE.APP <c) Coleco 1983 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Mon, 7 Nov 1903, 10:4V 



PACE 21 



03B6 
03B6 0C 
03B7 32 
03B8 39 



03B9 




03B9 


CE0800 


03BC 


DEO 4 


03 BE 


CE0400 


03C1 


BD0440 


03C4 


CE0017 


03C7 


DEO 4 


3C9 


CE0015 


03CC 


BD0440 


03CF 


BD03A1 


03D2 


250 V 



03L>4 BD02D1 



03D7 


9315 


03D9 


2605 


03DB 


OC 


03DC 


39 


03DD 




03DD 


BD026A 


03E0 




03E0 


OD 


3E1 


39 



3E2 
03E2 
03E5 
03E5 
3E8 
03EA 
03EI) 
3EF 
03F2 
3F5 



BD0238 

BD03A1 
2551 
CEO 20 
DEO 4 
CEO 017 
BD0 44 
2544 



1060 
1061 
1062 
1063 
1064 
10 65 
1066 
1067 
10 60 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1000 
1081 
10 02 
10 03 
1004 

10 05 
1006 
1087 
10OO 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1090 
1099 

110 
1101 
1102 
1103 
1104 
1105 
1106 

1 1 07 
1108 
1109 
1110 

1 1 1 1 
1112 
1113 
1114 
1 1 1 5 
1116 



CM3 



CLC 

PULA 

RTS 



SHOW MOTION 



•X X X X * X X X X * X X X X * X X X X X X X X X X X X X X X X X X X X X X X X X » X XXX X X X X X X X X X X X X X X X X X X X X X X X X X X 

x This subroutine reads a block of data froM tape into the buffer, 
x It assunes the tape is in the gap between the header and the data 
x when it is called, and exits with the tape stopped. 



READ BLOCK 
LDX 

six 

LDX 
JSR 
LDX 

srx 

LDX 
JSR 
JSk 
BCS 
x JSR 
IF 
JSR 
ELSE 
JSR 
ENDIF 
SUBD 
BNE 
; LDD 
j SID 

RTS 

RB_ERROR 

JSR 

RB_ERR0R2 

SEC 
RTS 



*BUFFER_END 
STUFF_END,D 
♦BUFFER 
HEAD STUFF 

♦ CRC END 
STUFF_END,D 

♦ CRC 

READ_STUFF 
CHECK MOTION 
KB ERROR 
SIOP_FORWARD 
CS_MUDE 
CALC_SUM 

CALC_CRC 

CRC,D 
RB_ERR0R2 
WANTED BLOCK 
HAVE BLOCK 



STOP FORWARD 



1N1T THE END POINTER 

1N1T THE START POINTER 

READ THE BLOCK 

1N1T END POINTER ACA1N 

IN1T START POINTER ACA1N 

READ THE CRC BYTES 

SEE IF THE TAPE JAMMED 

BRANCH IF SO 

ELSE STOP THE TAPE x FACE x 

[43 

GET THE CRC 

COMPARE IT TO THE ONE WE READ 
BRANCH IF NOT A MATCH 



SHOW NO ERROR 

TURN OFF THE MOTORS 
SHOW THERE WAS A JAM 



X X X X X X * X X X X * X X X X * X X X X * X X X X X X X X X X X X X X X X X X X X X X X X X X X- X X X X X X X X X X X X X X X X X X X X X X 

x fhis routine reads the next block header froM tape into the header buffer 

x It assuMes the tape is stopped when it is called, and exits with 

x the tape Moving and in the gap between the header and the data. 

x If there was no trouble, the carry is clear. If it finds that the 

x tape jaMfied while it was reading, it returns with the carry set. 



READ HEADER 
JSR 

R£AD H2 

JSR 
BCS 
LDX 

srx 

LDX 
JSR 
BCS 



co_fok'ward 

ciieck_mouun 
r ii _!:> palled 
#iiead_end 
stuff"end,i> 
#111:; ad bui- hep 

READ_SIUFf 

pi i s Tall ed 



SEE IF HIE TAPE IS REALLY MUV1NC 

BUANCH XF NOP 

SET THE END A U DP ESS 

SET THE START ADDRESS 

READ HIE HEADfcR 

BRANCH IF THE TAI'L JAMMED 



o 

G 
O 
G 

r; 

G 
G 
G 
G 
L- 

o 

G 
O 
O 
# 
G 



FILE: TAPE_APP:pADAMr I ItWLE "f I 'PACKARD : TAPE_APP (c) Coleco IVfclS. Confidential 
LOCA1 ION OBJECT CODE LINE SOURCE LINE 



Hon, 7 Nov 1903, 10:49 



PAGE 21 



3F7 7F0010 

Q3PA FC00 17 
03FD 834757 

0400 270A 



0402 


DC 17 


0404 


834845 


0407 


26DC 


0409 


7C0 010 


040C 




040C 


DC IV 


040E 


43 


04OF 


53 


0410 


931 B 


0412 


26D1 


0414 


9617 


0416 


9B18 


0418 


9619 


04 1 A 


9B1A 


041C 


9B1B 


041E 


9B1C 


0420 


9B1D 


0422 


9B1E 


0424 


9B1F 


0426 


4C 


0427 


26BC 



0429 


DC 19 


042B 


C30001 


042E 


DD08 


043 


DC ID 


0432 


DD11 


0434 


BD03A1 


0437 


2502 


0439 


OC 


114 3 A 


39 



1117 

1118 

1 1 1 V 

1120 

1121 

1122 

11 23 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1 1 >j2 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1 1 63 

1164 

1165 

1166 

1167 

I 1 68 
116V 
1170 

I I 7 1 
1172 
1173 



* Now th^t we have read sowe data, let's see if it really was a 
x block header. If so, the first two bytes should be the block 

* identifier, the third byte should be the coMplefient of the 

* fifth, the fourth should be the coMplenent of the sixth, 
x and the sum of all 9 of theM should be -1. 



IF 

CLR 

ENDIF 

LDD 

SUBD 

IF 

BEQ 

ELSE 

BNE 

ENDIF 

x TRY AGAIN- USE 
IF 
LDD 
SUBD 
BNE 
INC 
ENDIF 

UALID_HEAD 
LDD 
COMA- 
COMB 
SUBD 
BNE 
LDAA 
ADDA 
ADDA 
ADDA 
ADDA 
ADDA 
ADDA 
ADDA 
ADDA 
1NCA 
BNE 



hi) MODE 
IAPE_TYPE,D 

HEAD_BUPFER 
♦HEAD ID 
BD MODE 
VALID_HEAD 

READ H2 " 



GET THE 
IS THIS 



FIRS! TWO 
A HEADER? 



BYTES 



TRY AUA1N IF NOT RIGHT 



ALTERNATE HEAD ID 
BD_MODE 
HEAD BUFFERED 
#HEAD_ID2 
READ H2 
TAPE~TYPE,D 



HEAD_B0FFER+2,D CHECK THE COMPLEMENTARY BYTES 



HEAD„BUFFER+4,D 
.READ H2 
HEAD_6UFFER,D 
HEAD_BUFFER+1,D 
HEAD BUFFER +2, D 
HEAD BUFFER+3,D 
ll£AD_BUFFER+4,D 
HEAD BUFFER+5,D 
HEAD_DUFFER+6,D 
HLAD_BUFFER«7,D 
HEAD_BUFFER»8,D 

READ H2 



TRY AGAIN 
CALCULATE 



IF WRONG 
THE SUM 



BRANCH IF SUM IS WRONG 



x As a courtesy to the other subroutines, we will put the nunber 
x of the next block into BLOCK_NUM and the nunber of blocks per 
x track into BLOCKS TRACK. 



LDD 
ADDD 
SI D 

LDD 
SID 

JSR 
BCS 
LLC 
R IS 



HEAD BUI-FER»2,D 
#1 

block _num,d 

hi::a»_buffer-«-6,d 
blocks, tracked 

check motion 
rh s called 



SEE IF THE TAPE 
BRANCH IF SO 
SHOW NO JAM 



.JAMMED WHILE WL WLRE BUSY 



c 
o 
o 
o 
o 
c 
o 
o 
o 
o 
o 
o 
o 
o 
c 

G 

o 

o 
o 

• 



FILE: TAPE_APP:pADAMT HEWLETT-PACKARD: TAPE„APP (c) Coleco 1903 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Hon, 7 Nov 19B;5, 10:50 



PACE 23 



043B 

043B BD026A 
043E 0D 
Q43F 39 



0440 



0440 


9603 


0442 


84FB 


0444 


7D0 0C 


0447 


2702 


0449 


8A04 


044B 




44B 


9703 


0441) 


8608 


044F 


7D000B 


0452 


2702 


0454 


8610 


456 




0456 


9720 


0458 


860B 


Q45A 


9703 



045C 


4F 


045D 




045D 


D607 


045F 




045F 


D107 


0461 


27 EC 



0463 


D80A 


0465 


05 


0466 


D60 7 


468 


D70A 


046A 


D520 


046C 


273B 


046E 


01 


046F 


01 


0470 


01 


471 


01 


0472 


01 


1)473 


01 



1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1 1 92 
1193 
1194 
1195 
1196 
1 1 97 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1 227 
1228 
1229 
1230 



RH_STALLED 
JSR 
SEC 
RTS 



S I OP FORWARD 



TURN G!"F THE MOTORS 
SHOW W^tRE WAS A JAM 



■X- X- -X X K * * * x- X * -X -X- X- X X- -X- * tt X * -x- X- X X X- X * X X- X * * X X X X X # * * X X X X X -X X X X X X X * X X X X X X X X X X X X X X X X X 

* (his routine will read a block of stuff (file header, data block, 

* or CRC bytes) fron a drive. It should be called with the start 

* MeMory buffer address in X and the end address plus 1 in SIOFF_£ND, 

READ_STUFF 

* FIRST WE MUST SET THE TRACK NUMBER , 

LDAA MISC GET CURRENT STATE 

ANDA #0FFH-TRACK ASSUME WE WANT TRACK 2ERU 

1ST WANTED_TRACK,D SEE IF WE WERE RIGHT 

BEQ TK OK BRANCH IF SO 

ORAA # TRACK ELBE CHOOSE TRACK 1 
TK OK 

STAA MISC 

* THEN WE SET THE MOTION BIT TO WATCH. 

ASSUME IT WILL BE DRIVE 

BRANCH IF WE WERE RIGHT 
ELSE CHANGE OUR M1ND<S) 



DR OK 



LDAA 


#MOf ION0 


TST 


WANTED DRIVE, D 


BEQ 


l)R_OK 


LDAA 


#MOTIONl 


STAA 


MOTION BIT,D 


LDAA 


*8 


STAA 


BITCOUNT,D 



INir THE COUN1ER 



x The first thing we have to do is look for a SYNC byte. 

* We just keep shifting bits into a byte <in A) until we recognise 

* the sync, 



CLRA 
RS_SYNC 

LDAB 
RS_CL0CK1 

CMPB 

BEQ 



STATUS 

STATUS 
RS CLOCK 1 



SET TO NON-SYNC 

3 GET INITIAL INPUT STATE 

3 COMPARE TO CURRENT STATE 

3 3 LOOP UNTIL WE SEE CLOCK EDGE OR MOTION CHANGE 



* MAKE SURE WE SPEND AT LEAST 42 uSEC BEFORE WE GO BACK TO RS_SYNC AGAIN 

3 6 GRAB THE PREVIOUS DATA BIT 

3 9 STORE II AWAY 

3 12 DID WL SI ALL? 

3 15 

3 18 

3 21 0.F SO, SIGNAL ERROR 

2 23 WL CAN'T LEAVE LuOP UNTIL AT LEAST 

2 25 42 uSEC HAVE GONE BY 

2 27 

2 29 

2 31 

2 33 



EORB 


LAST_SEEN,D 


LSLD 




LDAB 


STATUS 


STAB 


LASI'_SEEN,P 


BITB 


MOI ION_BlT , D 


PEW. 


RS_OI'ALLE0 


NOP 




NUP 




NOP 




NOP 




NOP 




NOP 





( •■ 

o 
o 
o 
o 
c 
o 

G 

O 
O 
G 
G 

G 
G 
G 
G 
G 
G 
# 
G 



FILE: TAPE_APP i pADAMT HEWLETT-PACKARD: TAi'E_APP (c) Coleco 1903 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



lion, 7 Nov 198.5, 10:50 



PAUL 24 



0474 


01 


0475 


01 


0476 


21FE 


0478 


8116 


047A 


26E1 


47C 




047C 


D607 


U47E 




047E 


D107 


0480 


27FC 



0482 


D80A 


1)484 


05 


0485 


D607 


0487 


D70A 


0489 


D520 


048B 


27 1C 


048D 


7AOQ03 


0490 


2609 


0492 


A700 


0494 


8608 


0496 


9703 


0498 


08 


0499 


20E1 


049B 




049B 


01 


049C 


01 


049D 


01 


049E 


9C04 


04AO 


26DA 


04A2 


BD03A1 


04A5 


2502 


04A7 


OC 


04A8 


39 


04A9 




04A9 


BD026A 


04 AC 


DC 11 


4AE 


2714 


04B0 


9300 


04B2 


BD0 294 


04B5 




04B5 


BD0315 


04B8 


BOO 3 A 1 


04BB 


250 A 


04 BO 


830001 


04CO 


26F 3 


04C2 


20 03 


04C4 




04C4 


B I) 02 10 


04C7 





1231 






NOP 




1 232 






NOP 




1233 






BP.N 


* 


1234 






CMPA 


#SYN 


1235 






BNE 


RS_SYNC 


1236 










1237 


RS_ 


.READ. 


BIT 




1238 






LDAB 


STATUS 


1239 


RS_ 


.CL0CK2 




1240 






CMPB 


STATUS 


1241 






BEQ. 


RS_CL0CK2 


1242 










1243 


* MAKE ! 


EiORE WE 


SPEND AT LEAST ^ 


1244 








- 


1245 






EORB 


LA8T_SEEN,D 


1246 






LSLD 




1247 










1248 






LDAB 


STATUS 


1249 






STAB 


LAST_SEEN,D 


1250 






B1TB 


MOTION B1T,D 


1251 






BEQ 


RS STALLED 


1252 






DEC 


BIT COUNT 


1253 






BNE 


RS WAIT 


1254 






STAA 


0,X 


1255 






LDAA 


*8 


1256 






STAA 


BlTCOONT,D 


1 257 






INX - 




1258 






BRA 


RS_READ_B1T 


1259 










1260 


RS. 


-WAIT 






1261 






NOP 




1 262 






NOP 




1263 






NOP 




1264 






CPX 


STUFF_END,D 


1265 






BNE 


RS_READ_B1T 


1266 










1267 






JSR 


CHECK_MOT10N 


1268 






BCS 


RS_SfALLED 


1269 






CLC 




127 






RTS 




1271 










1272 


RS. 


..STALLED 




1273 






JSR 


STOP FORWARD 


1274 






LOO 


BLUCKS_TRACK,D 


1275 






BEQ 


REALLY LOST 


1276 






SOBD 


W ANT ED_B LOCK ,0 


1 277 






JSR 


FAST_REVER8E 


1278 


RS, 


.BACKING 




1 279 






JSR 


SKIP BLOCK 


128 






JSR 


CHECK_rtOTION 


1281 






BCS 


RS EXIT 


1282 






SOBD 


#1 


1283 






BNE 


RS BACKING 


1284 






BRA 


r a" ex it 


1285 


REALLY_ 


LOST 




1 206 






JSR 


REWIND 


1287 


RS 


EXIT 







2 35 

2 37 

3 40 

2 42 HAVE WE FOOND SYNC YET? 

3 45 BRANCH HjR ANOTHER BIT IF NOT 



3 GET INITIAL INPUT SI ATE 

3 COMPARE TO CURRENT STATE 

3 3 LOOP ONTIL WE SEE CLOCK EDGE OR MOTION CHANGE 

42 uSEC BEFORE WE CO BACK TO R8_READ_B1T AGAIN 

3 6 GET THE PREVIOOS DATA BIT 
3 9 STORE IT AWAY 

3 12 

3 IS SAVE FOR NEXT BIT 

3 18 IS TAPE STILL MOOING? 

3 21 BRANCH IF" NUT 

6 27 ARE THERE ANY BITS LEFT IN THE PREV. BYTE? 

3 30 BRANCH IF YES 

4 34 ELSE SAVE THE PREVIOOS BYTE 

2 36 RE-INIT BIT COONT 

3 39 

3 42 INC. DATA POINTER 
3 45 bRANCH FOR ANOTHER BIT 



2 32 
2 34 

2 36 

6 42 IS THE BOFFER FOLL? 

3 45 GET ANOTHER BIT IF NOT 

SEE IF" THE TAPE JAMMED WHILE WE WERE BUSY 
BRANCH IF 80 
ELSE SHOW NO JAM 
RETURN TO CALLER 



TORN OFF THE MOTORS 

FIGYOR OUT HOW FAR TO BACK OP 

WE DON'T SEEM 1 (J KNOW HOW MANY BLOCKS/TRACK 



GENTLEMEN, START YOUR ENGINES 

FOLLY REWOOND? 
ONE MORE BLOCK 



FILEs TAPE_APP:pADAMT HEWLE "II -PACK APD i |APE_APP <c) Coleco 19U3 Confidential 
LOCATION OBJtCf CODE LINE SOURtE LINE 



Mon, 7 Nov 1983, 10:51 



PACE 



c 
o 
o 
c 

G 

o 

c 

G 
G 



G 
G 
G 
# 



4C7 BD0 2A7 
U4CA 00 
04CB 39 



04CC 



04CC 


D603 


4CE 


C4F-B 


04D0 


7D00UC 


04D3 


2702 


04D5 


CA04 


04D7 




04D7 


1)703 


4D9 


7D00OB 


04DC 


26 0O 


4DE 


9602 


04E0 


84BF 


4E2 


9702 


04E4 


2006 


04E6 




04E6 


9602 


04E8 


84 7 F 


04EA 


9702 


04EC 




04 EC 


B I) 3 01 


04EF 


7F 


04F2 


8616 


04F4 


97 01 


4F6 


D6 3 



041-8 


CEO 


04FB 


&D0573 


4FE 


7FOOO0 


1)501 


01 


0502 


01 


503 


BOO 57 3 


0506 


7FOOO0 


0509 


01 


05 A 


01 


050B 


BD0573 


050E 


7F 



1288 
1289 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1 327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1 339 
134 
1341 
1342 
1343 
1344 



J BR 
bEC 
RTS 



STOP REVERSE 



SIOP THE HO I Ok 8 

SHOW THERE WAS A JAM 



* X X * * X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X- X X X X X X X X X X X- X X X X X X X X X * X 

x This subroutine writes the IK bytes of data in the buffer to a 

x block on the tape. Note that WRITE_BLOCK and WR1TE_BYIE, as a 

x team, agree to use B only as an image of the port. This routine 

x assumes the tape is in the gap between the header and the data 

x when it is called, and it exits with the tape stopped. 

x This routine looks at WANTED_DRIVE and goes to WKnE_BLOCK0 or WR1TE„BL0CK1 

x accordingly. 



WRITE_BLOCK 

* FIRST WE MUSI 
LDAB 
ANDB 
1ST 
BEG) 
ORAB 

TK_GK_TOO 

STAB 

1ST 

BNE 

Li)AA 
ANDA 
STAA 
BRA 

WRITE BLOCK 1 
LDAA 
ANDA 
STAA 

WRITE_COMMON 
JSR 
CLR 
LDAA 
STAA 
LDAB 



SET THE TRACK NUMBER, 

MISC GET CURRENT STATE 

♦0FFH-TRACK ASSUME WE WANT TRACK ZERO 

WANTED_TRACK,D SEE If WE WERE RIGHT 

TK_CK_TOO BRANCH IF SO 

tTRACK ELSE CHOOSE TRACK 1 

MISC 

WANTED_DRIVE,D 

WRITE_BLGCK1 BRANCH IF USING DRIVE 1 



MOTOR 

#WENABLE0 

MOTOR 

WRITE COMMON 



MOTOR 

tWENABLEl 

MOTOR 



PAUSE 1 
ZERO_BYIE 
#SYN 
SYNC_BYTE,D 



TORN ON WRITE ENABLE 



TURN ON WRITE ENABLE 



LEAOE A LITTLE ROOM 

SET UP THE PREAMBLE BYTES 



MISC GET THE IMAGE OF THE PORT WITH WD AT A IN I 

2 x Ready to start — write a couple of zero bytes and the sync byte. 



LDX 

JSR 
CLR 
NOP 
NOP 
JSR 
CLR 
NOP 
NOP 
JSR 
CLR 



#'/. FRO BYTE 
WRI1'E_BY'1E 
ZERO BYTE 



WRI IE_DYIE 
ZERO BYTE 



WRI TE_BYT£ 

ZERO BYTE 



( ., 



c 
o 



c 
c 
e 
o 
o 
o 
c 
c: 
c 
c 
c 
c 
c 

c 

( - 

o 



FILE: TAPE_APF spADAMT HEWLE IT-PACKARD ; TAPE_APP <c> Coleco 1903 Confidential 
LOCATION OBJECT CODE LINE SOURCE LINE 



Mon, 7 Nov 1983, 10:51 



PAUL 



051 1 


01 


0512 


01 


0513 


BD0 573 


0516 


CEO I) 01 


0519 


21 FE 


051 B 


01 


05 1C 


01 


0511) 


B DO 57 3 


0520 


CE0400 


0523 


21 FE 


0525 


01 


0526 


01 


0527 




0527 


BD0573 


052A 


08 


052B 


8C08QQ 


052E 


26E7 


053 


CE0OO0 


0533 


8D3E 


0535 


7FOO00 


053B 


01 


0539 


01 


053 A 


BD37 


053C 


8616 


053E 


B700 01 


0541 


CEO 01 


0544 


01 


0545 


8D2C 


0547 


CE0015 


054A 


01 


054B 


01 


054C 


21FE 


054E 


8D23 


550 


08 


0551 


21 FE 


0553 


01 


0554 


01 


0555 


8D1C 


557 


CEO0OO 


55 A 


01 


055B 


01 


055C 


01 


0551) 


01 


055E 


01 


055F 


Bi)l2 


561 


9602 


0563 


8AC0 


565 


970 2 


0567 


BD0 3A1 


056 A 


2502 


056C 


OC 


56D 


39 



1345 


NUP 




1 346 


NOP 




1347 


J BR 


WRITE BYTE 


1348 


LDX 


♦ SYNC BY IE 


134V 


BRN 


$ 


1350 


NUP 




1351 


NOP 




1352 


J BR 


WRITE_BYTE 


1353 


LUX 


♦ BUI FER 


1354 


BRN 


$ 


1355 


NUP 




1356 


NUP 




1357 






1358 WBNEXT 


.BYTE 




1359 


JSR 


WR1TE_BY1E 


1360 


INX 




1361 


CPX 


♦BUFFER END 


1362 


BNE 


WBNEXT_BYIE 


1363 






1364 


LUX 


♦ZERO BYTE 


1365 


BBR 


WRITE BY IE 


1366 


CLR 


2ERO_BYTE 


1367 


NUP 




1368 


NUP 




1369 


BBR 


WRITE_BYTE 


1370 


LDAA 


♦ BYN 


1 S/ 1 


ST A A 


SYNC BYTE 


1372 


LDX 


#SYNC_BYTE 


1373 


NUP 




1374 


BBR 


WRITE BYTE 


1375 


LDX 


♦ CRC 


1376 


NUP 




1 3/7 


NUP 




1378 


BRN 


$ 


1379 


BBR 


WRITE_6YIE 


1380 


INX 




1381 


BRN 


* 


1382 


NUP 




1383 


NUP 




1384 


BSR 


WR1TE_BYIE 


1385 


LDX 


#ZERO_BYTE 


1386 


NUP 




13 Li 7 


NUP 




1 388 


NUP 




1 389 


NUP 




1390 


NUP 




1391 


BBR 


WR.UE_BYIE 


1392 






1393 


LDAA 


Mill OR 


1394 


URAA 


♦Wu ISABEL 


1395 


B I'AA 


HUT OR 


1396 


JSR 


CHECK HUIION 


1397 


BCS 


MBBT ALLED 


1398 x 


J BR 


8 1 UP _F UK WARD 


1399 


LLC 




140 


R 1 S 




1 4 1 







WRITE A DATA BYTE 

INC. THE PUIN1ER 

IB THAT THE END OF DATA? 

BRANCH IF NUT 



WRITE A 2ER0 BYTE 
AND WRITE ANOTHER 

WRITE A SYNC BYTE 
WRITE THE CRC HIGH BYTE 
WRITE THE CRC LOW BY IE 
WRITE ANOTHER ZERO AS JUNK 



DISABLE WRITING 

yt.E IF THE TAPE JAMMED WHILE WE WERE BUSY 

BRANLH IF SO 

ELBE STOP THE TAf'E * FACE * 

SHOW THERE WAB NO JAM 



FILE: TAPE_APP :pAl)AMT HEWLETT -PACKARD J T APE_AI'P <c) Coleco 1V83 Con + iden t ia 1 
LUCAS ION UBJtUT CODE LINE SOUK (J E LINE 



Hon, 7 Nov 1983, 10:51 



PACE 2/ 






Q56E 

05bE BD026A 

0571 OD 

0572 39 



0573 




0573 


C801 


0575 


D/03 


0577 


8608 


0579 


2007 


057B 




057B 


C801 


0S7D 


D703 


057F 


01 


0580 


21FE 


0582 




0582 


01 


0583 


01 


0584 


01 


0585 


01 


0586 


01 


0587 


01 


0588 


680 


058A 


2416 


058C 


C801 


058E 


D703 


0590 




0590 


01 


0591 


01 


0592 


01 


0593 


01 


0594 


4 A 


0595 


27 OE 


0597 


01 


0598 


01 


0599 


01 


059 A 


01 


059B 


01 


059C 


01 


059D 


01 


059E 


01 


059F 


01 


5A0 


201)9 



1402 

1403 

1404 

1405 

1406 

14 07 

1408 

1409 

1410 

1411 

1412 

14 13 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 

1436 

1437 

1438 

1439 

1440 

1441 

1442 

1443 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1 458 



WBSTALLED 

J8R 
SEC 
PIS 



SI OP FORWARD 



TURN 
SHOW 



OFF THE MU)UPS 
THERE WAS A JAM 



x This subroutine writes out the byte pointed to by X. Note that it 

* zeroes the Memory location and the clobbers the registers. It assumes that A 

* is already set up with the port state, We write the first clock edge as soon 

* as we can so as to Maximize time available to the calling routine. 

* If the caller wants to write two adjacent bytes, it has 16 cycles 

* between calls (including the JSR or BSR ) ■ 



WRITE_BYTE 

EORB 
STAB 



UBBOI'H 



NOP 

NOP 

NOP 

NOP 

DEC A 

BEW 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

NOP 

BRA 



tWTDATA 
MISC 



•*• 


LDAA 


♦O 




BRA 


WBENTER 


URITE_B1T 






EORB 


tWTDATA 




STAB 


MISC 


it 


NOP 






BRN 


$ 


WBENTER 


NOP 
NOP 
NOP 
NOP 
NOP 
NOP 






LSL 


o,x 




BCC 


WBZERO 




EORB 


♦WTDATA 


X. 


STAB 


MISC 



14 B DONE 



wrx re &\ i 



2 FLIP THE DATA BIT 

3 WHITE II OOF 10 MAKE 
TAKE EXACTLY 31 CYCLES 

2 SET THE BIT COUNTER 

3 ENTER THE NORMAL LOOP 



CLOCK EDGE 

TO MAKE DATA EDGE 



2 FLIP THE DATA BIT 

3 WRITE IT OUT TO MAKE CLOCK EDGE 

TAKE EXACTLY 31 CYCLES TO MAKE DATA EDGE 



2 

6 ROTATE OUT THE DATA BIT 

3 BRANCH IF NO DA I A EDGE NEEDED 

2 ELSE FLIP THE DATA BIT 

3 WRITE IT OUT TO MAKE DATA EDGE 

TAKE EXACTLY 39 CYCLES TO MAKE CLOCK EDGE 



DEC. 

EX If 



THE BIT COUNT 

IF FINISHED THIS BYTE 



3 GO WRITE t'UI THE NEXT BIT 



k This bit of code Must take the sane tine as the bit which writes the 
* data edge for a ONE bit, 



u 



FILE: TAPE_APP spADAMT HtWLE IT -PACKARD : 1APE_APP (c) Coleco 1VU3 Confidential 
LOCATION OBJECT CODE LINE 50UKCE LINE 



Hon, 7 Nov 1V83, 10:52 PAGE 20 



05A2 
05A2 01 
Q5A3 20EU 

05A5 
05A5 39 



Error s = 



145 V 

1460 WBZERO 

1461 NOP 

1462 BRA 
1463 

1464 UBDONE 

1465 R'fS 



UtJttUl'H 



2 

3 GO RE-JOIN HIE HAIN CODE 



<J 



» 



o 
o 
c 
o 
o 
o 
o 
c 
c 
o 
o 

C' 

c 




c 



c 
o 



FILE: TAPE_APP;pADAMT CROSS REFERENCE TABLE 

LINE* SYMBOL TYPE RlfFERtNCES 



'Aft 



261 


APP_INIT 


P 


400 


262 


A1P APP 


P 


134 


599 


BACKUP 


P 


570 


209 


BD HU1)I£ 


A 


235 , 968 ,991,1124,1129,11 35 


216 


BIT COUNT 


D 


1204,1252,1256 


24 U 


BLOCKS TRACK 


D 


594 , 955 , 963 , 999 , 1 03 , 1 OU , 1 1 68 , 1 274 


222 


BLOCK NUM 


D 


565,620,664,1 165 


2S2 


BUFFER 


A 


253,812,1073,1353 


253 


BUFFER END 


A 


817,1071,1361 


9/"6 


CALC1 


P 


964 


984 


CALC BAD 


P 


958 


960 


CALC OK 


P 


956 


950 


CALC PHYS 


P 


371 


813 


CALCJ32 


P 


818 


810 


CALC SUM 


P 


429,456,1083 


482 


CANT_READ 


P 


437 


393 


CHECK 1 


P 


391 


399 


CHECK 2 


P 


397 


1045 


CHECK_MUTION 


P 


582 ,607, 658 , 1 079 , 1 1 1 , 1 1 70 , 1 267 , 1 28 , 1 396 


341 


CHK0 


P 


326,331,334,338 


350 


CHKO 1 


P 


346 


327 


CHKl'l 


P 


wCw 


364 


CHK SIG 


P 


349,354,357,361 


1019 


CIP~ 


P 


390,396,414,444 


162 


CIPO 


A 


343,1024 


167 


CIPl 


A 


319,1029 


1027 


CIP 1 


P 


1022 


1031 


CIP 8 


P 


1026 


1035 


CIP 9 


P 


1025,1030 


283 


CLEAR RAM 


P 




1053 


CM1 


P 


1049 


1056 


CM2 


P 


1051 


1060 


CM3 


P 


1052,1055 


469 


CMD COMP 


P 


376,384,434 


141 


COMMAND_BUFFER 


E 


422,424,426,474,476,478,479,953,961,962,9 


244 


CRC 


D 


433,460,1077,1087,1375 


245 


CRC_END 


D 


1075 


208 


CS_M01)E 


A 


428,455,804,1082 


137 


CS UGRD 


E 




142 


CURRENT RAM 


E 


29 1 , 333 , 356 , 423 , 425 , 427 , 447 , 475 , 477 


192 


C„COMMAND 


A 


375 


189 


C READ 


A 


378 


193 


C RESET 


A 


369 


191 


C_REWIND 


A 




190 


C WRITE 


A 


380 


140 


DATA BUI- PER 


E 




144 


DDR 1 


A 


269 


145 


DDR2 


A 


272 


148 


DDR 4 


A 


275 


207 


DISAB 


A 




358 


DRO OK 


P 


344 


335 


DR1„0K 


P 


320 


220 


DRIYE NUM 


» 


533,545 


1201 


DR OK 


P 


1199 


493 


ERR_1 


P 


490 


488. 


ERR COMMON 


P 


471,481 ,484 


495 


..erfTend 


P 


492 



u 



(' 

c 



c 
c 
c 
c 
e 
c 
c 
c 

C 

c 
c 
c 
c 
u 

L, 

o 
# 

o 



FILE: TAPE_APP ipADAMT CROSS REFERENUE TABLE 

LINE* SYMBUL TYPE H£f ERENCES 



PAGE 30 



413 
387 
443 
709 
707 
763 
761 
701 
755 
531 
522 
525 
548 
241 
576 
635 
175 
176 
580 
173 
174 
179 
180 
592 
682 
684 
552 
675 
568 
246 
247 
200 
201 
501 
624 
225 
139 
374 
301 
996 
1010 
10 06 
14'/ 
160 
161 
248 
146 
317 
1 88 
187 
136 
558 
485 
4/2 
185 
152 
153 



EXEC R 

EXEIC_RESET 

EXEC U 

FASTF 

FASTF 1 

FASTR 

FASTR 1 

FAS r_FUR WARD 

FAST~RE0i::.RSE 

find_again 
finiTbluck 
find klok 
find_head 
find tries 

FORUARD 

FOUND_ir 

FUDFASTO 

FWDFASJ1 

FUDLOOP 

FWDSLOWO 

FWDSLQW1 

FWDSIOPO 

FWDSTOP1 

FWD STALL 

GQF? 

G0F2 

GOT HEAD 

GO_FORWARD 

GO_LOOK 

HEAD BUFFER 

HEAD_END 

HEAD__ID 

HEAD 11)2 

INIT~TIMER 

JUSr_AHEAD 

LAST SEEN 

LENG1H_0F_I0_ 

MAIN_1 

MAIN_LOOP 

MANGLE NUM 

MANGL_EN1> 

MANGL_HI 

HISC 

MOT 1 UNO 

MOT I ON 1 

MOTIUN_BIT 

MOTOR 

MOTORS. OKAY 

M DATA" 

M_SIG 

NIM_BLOCK 

NOT_ir 

NO_ BLOCK 

NO CASbETIE 

OCF 

OCR 

P3CSR 



,462 

,633 

,613 

,526,587,612,621 ,63. 

,573 



,680 
>,683 



379 

370 

381 

706 

704 

760 

758 

578 

596,603,1277 

527 

419 

622 

588 

524 

571 

629 

705 

708 

585 

175 

176 

727 

731 

551,583,626 

679 

681 

550 

1108 

566 

553,628,1114,1127,1136,1142,1145,1147,1148,1149,1150,1151,1152,1153,1154,1155,1163,1167 

1112 

1128 

1137 

296 

567,574,630 

1219,1222,1245,1249 

372 

366,512 

969 

998 

1004 

318, 

345, 

322 

1202 

267, 

304, 

377 

188, 

187 

555 

373 , 

415, 

305, 

311, 



1020,1188,1194,1304,1310,1330,1416,1 423 , 1 437 

728,782,1050,1197 

732,786,1054,120 

,1223,1250 

655, 605, 609, 7 10, 736, 744, 764, 790, 798, 131 5, 131 7, 1321,1 323, 13V3 ; i;iVb 

307,313 

365,496 



420,463 

445 

887,906,940 

506,086,905,939 



FILE: TAPE.APPipADAMT CROSS PEI-LRENCE T-ABL 

LINE* SYMBOL TYPE REFERENCES 



paul: 31 



C 
C 

c 

c 
o 
o 
o 
o 
c 
c 
o 
o 

G 

c 

L 

u 



865 


PAUSE 


P 


656,661,662 


899 


PAUSE 1 


P 


1326 


878 


PAU8E100 


P 


690,691,711/765 


907 


PAUSE1WAU' 


P 


909 


880 


PAUSE50 


P 


879 


888 


PAUBE50WAIT 


P 


890 


868 


PSE1 


P 


870 


243 


QUIET_fIME 


A 


507 


158 


RAMCR 


A 




1094 


RB ERROR 


P 


1080 


1096 


RB~ERR0R2 


P 


1088 


156 


RDAIA 


A 


498 


163 


RDDATA0 


A 




164 


RDDAIA1 


A 




107 


READ BLOCK 


P 


421 


1109 


READ_H2 


P 


1138,1146,1157 


1107 


READ~HEADER 


P 


549,625,957 


1185 


READ STUFF 


P 


1074,1078,1115 


242 


READ_TK1ES 


D 


417,435 


1285 


REALLY LOST 


P 


1275 


285 


REPEAT 


P 


289 


418 


RETRY 


P 


436 


177 


REVFAST0 


A 


650,759 


178 


REVFAST1 


A 


653,762 


605 


REOLOOP 


P 


597,610 


181 


REVS TUP 


A 


781 


182 


REVSTQP1 


A 


785 


617 


REU_BI'ALL 


P 


608 


654 


REW 


P 


651 


652 


REW1 


P 


649 


657 


REU2 


P 


659 


645 


REWIND 


P 


392,398,1286 


1175 


RH STALLED 


P 


1111,1116,1171 


154 


RMCR 


A 


278 


1278 


RS„BACKING 


P 


1283 


1213 


RS CLOCK 1 


P 


1215 


1239 


RS_CLQCK2 


P 


1241 


1287 


RS_EX I 1 


P 


1 281, 1284 


1237 


RS~READ BIT 


P 


1258,1265 


1272 


RS STALLED 


P 


1224,1251,1268 


121 1 


RS SYNC 


P 


1235 


1260 


RS WAIT 


P 


1253 


563 


SAME TRACK 


P 


537 


155 


SC8R~ 


A 


281,497,50 


543 


SET VARB 


P 


534 


7SZ 


SF 


P 


729 


730 


SF1 


P 


726 


742 


SF OK 


P 


735,739 


233 


SHUTDOWN 


D 


303,312,508 


935 


SKIP 


P 


927 


94 1 


SKIP WAD 


P 


943 


921 


SKIP BLOCK 


P 


581 ,606,1279 


926 


SKIP LOOP 


P 


929 


787 


SR 


P 


783 


784 


SRI 


P 


780 


796 


SR OK 


P 


789,793 


250 


STACK 


D 


264 



o 
c 
c 
c 
o 
c 
c 
c 
o 
o 
c 
c 
o 
o 
o 
c- 
o 



FILE: TAPE_APP : pADAMT CROSS RLTLRENCE I ABLE 
LINE* SYMBOL. TYPE REFERENCES 



PAO 



249 


STACK SPACE 


D 


149 


STATUS 


A 


757 


STOP F WAIT 


P 


183 


STOPPED 


A 


791 


STOPRWAIT 


P 


72 


STOP FORWARD 


P 


77 A 


STOP REVERSE 


P 


20 2 


STOP_.TIMfc.OUT 


A 


217 


STUFF END 


D 


199 


SYN 


A 


214 


SYNC_BYTE 


D 


195 


S BADBLK 


A 


196 


S_NUBLOCI< 


A 


198 


S_NODRIVE 


A 


197 


S NO TAPE 


A 


194 


S OK 


A 


138 


TAPE_SrA1US0 


E 


138 


TAPE STATUS1 


E 


237 


TAPE TYPE 


D 


150 


TCSR 


A 


1S7 


TDATA 


A 


215 


TEMP 


D 


151 


TIMER 


A 


1193 


TK OK 


P 


130 9 


TK_OK_TQO 


P 


166 


TRACK 


A 


221 


TRACK NUM 


D 


1141 


VALID~HEAD 


P 


230 


WANTED BLOCK 


D 


228 


WANTED DRIVE 


D 


229 


WANTED TRACK 


D 


1439 


WBBOTH 


P 


1464 


WBDONE 


P 


1427 


WBENTER 


P 


1358 


WBNEXT BYTE 


P 


1402 


WBSTALLED 


P 


146 


WBZERO 


P 


172 


WDISABLE 


A 


171 


WEN ABLE 


A 


170 


WENABLE1 


A 


1421 


WRITE BIT- 


P 


1301 


WRITE BLOCK 


P' 


1320 


WRITE BLOCK 1 


P 


1414 


WRITE_BYTE 


P 


1325 


WRITE COMMON 


P 


168 


W TDATA 


A 


213 


ZERO BYTE 


D 



321, 342 , 734 , 738 , 788 , 792 ,10 23,1047,1212,1214,1221,1238,1240,1248 

741 

266,743,797 

795 

316, 559 , 586 ,593,631, 959 ,985,1095,1176,1 273 ,1403 

611,618,660,1288 ' 

724,778 

1072,1076,1113,1264 

1234,1328,1370 

1329,1348,1371,1372 

483 

486 

324,347 

328,337,351,360,480 

339,362,470 

348,352,359,363,491 

325,329,336,340,494 

997,1125,1139 

306,308,503,883,889,902,908,936,942 

309,504,884,903,937 

1191 

1307 

1189,1192,1305,1308 

536,547 

1130 

554,564,595,627,967,977,10 01,1002,1007,1009,1276 

330,353,389,395,489,532,544,648,678,703,725,757,779,954,1021,1048,1198,1312 

535,546,971,979,1190,1306 

1462 

1445 

1419 

1362 

1397 

1435 

1394 

1316 

1322 

1455 

464 

1313 

1 335 , 1 339 , 1 343 , 1 347 , 1 352 , 1 359 , 1 365 , 1 369 , 1 374 , 1 379 , 1 384 , 1 39 1 

1318 

1415,1422,1436 

1 327 , 1 334 ,1336, 1 34 , 1 344 , 1 364 , 1 366 , 1 385 



O 



FILE: SR_HIMEM:pADAMT HEWLETT-PACKARD: SR_HlMtM (c) Coieco 1V83 Confidential u Hon, 7 Nov 1983, 10:40 PAUL. 

v LOCATION OBJECT CODE LINE SOURCE LINE 

1 A 68Q1 A 

C 3 NAME A Rev 04 - MJM A 

4 

5 De SR PU MACRO ^Header Rev. 4 

G 6 .GOIO Ede_SR_PO 

7 

^ 8 Project! Tau, 8,5-101 
G 9 

10 &ti&i& !ls i is ji w w ^ « i^ » fc<« « 8 » » « « i« » » » is fe! » t;J ^ 

^ 11 & *& 

1 2 81 © R H X M !:•: M M CJ M *$ 

13 SI ^ 

_ . 14 mmmmmmmmmmmmmmmmmmmmmmm^mmmmmm 

C" '15 ' 

16 Rev History 

17 Rev. Date Nawe Change 

18 6 23JUL16Q0 HME Changed software I/O intrpt to 

19 show MTP_ACM_SEQ and ATP.APP 

20 5 23JUL1401p MJM This copy is taken froM the KB_68 
G 21 dircectory ORANGE systeM to be used 

22 in the tape Mac software package 
23 

G 24 4 2Qjul955a RPD created SR_H1MEM2, recioved added SCI vector 

25 3 lOjuilOOOa RPD added SCI interrupt vector 

26 2 7juI1130a RPD replaced unused vectors with RE1_OECTOR 
C 27 1 16jun940a JIM Corrected errors. 

28 15jun320p JIM Entered data. 
29 
C 30 Function i Define the interupt vectors that are in the high MeMory 

31 of the 6801 located at FFF0H, Also defined is the RET_VECTOR 

32 interrupt service routine. 
G 33 

34 Ede SR PU MEND 

G 36 ^Subroutines called (referenced, but not executed) 

57 i 

38 EXT TAPE_MAC 

G ; 39 EX I AIP_APP 

40 

L 42 ) dunny interrupt service routine 

43 



G 
G 



00 3B 



1 


000 


03 


0000 


05 





07 


00 00 


09 





0B 


0000 


0OOD 





OF 





Err or s- 






44 RET VECTOR i R"i 1 < junused vector interrupt service routine 



G 45 

46 FDB TAPE_MAC ; Serial i/o interupt vector 

47 FDB RET_OECTOR > finer overflow interupt vector 
G 0005 0000 48 fDB RE'J ~VLC1 OR jUutput compare interupt vector, i. e, tiwer interupt 

49 FOB RET OEC fUR ; Input capture interupt vector 

50 F-DB RET~OLCTOR }1R01 - Maskable interupt vector 
G 000B 0000 51 FDB RE f ~VEC ( ON ^Software interupt vector 

52 FDB RET_VLCI OR ;Non-Maskab.'le interupt vector 



53 Ffrtt AfP_APP j Reset interupt vector 



~> 



^ 







FILE: SR„HIMLM!pADAMT CKOSS Rhf-tktNCE TABLE 

LINE* SYMBOL TYPE REFERENCES 



PAUL 



39 ATP_APP 

44 RET_VLCTOR' 

38 TAPE MAC 



E 53 . 

P 47, 40, 49, 50,51 , 52 

E 46 



HP 640 Linker 



Mon, 



Now IV8,i, 10:53 



P age 



FILE/PROG NAME 



C 

c 
o 
o 
c 
o 

O 

C 

c 
c 

c 

G 

c 
c 
c 
o 
o 
o 



TAPE MACipADAMI 
D MTPipADAMT 
MTP_TR_RE;pADAMT 
HIP f« TRjpADArtT 
MIP TR_TC:pADAMr 
H('K'lNIM_W:pAi>AMT 
TAPE_APP:pADAH) 
next address 

SR_HIMEM:pADAHT 
next address 



PROGRAM 


DAI A 


F" 8 


08 




097 


F9BC 




FVD8 




F9F0 




FA1B 




FA2A 


09E 


FFDO 


01)1) 


FFEF 




0000 





COMMON AB8CJLU IE 



0400 



0B 



DATE 








t: 


J.ME 


COMMENT! 


i 


Hon , 


7 


No v 


IV u a, 


10 


:28 


Rev 


01 - 


HME 


Hon, 


7 


Nov 


1983, 


10 


:3c! 


Rev 


- 


DLS 


Hon , 


7 


Nov 


1983, 


10 


:34 


Rev 


04 - 


RPD 


Hon , 


7 


No V 


1983, 


10 


« 35 


Rev 


03 - 


RPD 


Hon , 


7 


Nov 


1983, 


10 


:37 


Rev 


01 - 


RPD 


Hon , 


7 


Nov 


1903, 


10 


:38 


Rev 


02 - 


DLS 


Hon , 


7 


Nov 


1983, 


10 


:41 


Rev 


15 




Hon , 


7 


Nov 


1983, 


10 


i-40 


Rev 


04 - 


MJM 



XFER address* 0000 Defined by DEFAULT 
absolute & iink_cort file naMe=TPAi pADAMT 
Total* of bytes ioaded= 0C3E 



(.: 
C 
C 

c 
c 
c 
c 



o 
c 
o 
o 
o 
o 
o 
c 
o 



HP 6400 Linker 



SYMBOL R VALUE 

ATP_APP P FA^A 

A DATA D G09C 

A SiG D 09C 

BREAK ORFE P F9C5 

CLEAN_UAR1' HU P FADE 

CNFG WORD D 09C 

COMMAND BUFFER D 080 

COUNT D 099 

CSJ.JORD D 09B 

CURRENI RAM D 0085 

CURRENT STATE D 097 

Dl_MQDE_WORD D 0098 

DATA_BUFFER C 0400 

D MTP D 097 

10 STATUS_BLGCK D 0094 

LENGTH OF 10 ST A 0001 

MTP_NIM_WRITE P FA1B 

MI'P_TR_REC P F9BC 

MTP_TR_TCU P F9F0 

MTP l'R_TRANS P F9D8 

M_DATA • D 009D 

M_S1Q 09C 

NIM BLOCK D 009C 

NODE_ADDRESS A 0008 

TAPE MAC P F800 

!APE_SrATUSO D 095 

TAPE SIATUS1 D 096 



DEF BY 



TAPE_APP: pADAMT 
D MlPipADAM) 
D_MIP : pADAMT 
mTp_IR RE s pADAMT 
MTP (R_ I Cs pADAMT 
D Ml>spADAMT 
TAPE_MAC: pADAMT 
D_MJP:pADAMT 
D_M IP: pADAMT 
TAPE MACipADAMT 
D MTP: pADAMT 
D M IP: pADAMT 
D„MIPs pADAMT 
D~M IP: pADAMT 
TAPE MACipADAMT 
TAPE_MACipADAMr 
MTP_NXM Ws pADAMT 
MrP_TR_R£i pADAMT 
MTP TR TC: pADAMT 
MTP TR_rRtpADAMT 
D_m7pi pADAMT 
D_MTPi pADAMT 
D MTPipADAMI 
D_MTPs pADAMT 
TAPE_MAC:pADAMl 
TAPE.MACi pADAMT 
TAPE_MAC:pADAM'l 



G 



Non, 7 Nov 1983, 10:b.i 



Page 



REFERENCES 
SkJUMEMipADAMC 



MTP_TR_IRspADAMT 

TAPE.APPi pADAMT 

TAPE_APP;pADAMT 
1APE~APP: pADAMT 
MTP_TR_1C: pADAMT MTP_ f'R_RE : pADAMT TAPE_MAC: pADAMT 

1APE_APP:pADAM1 1AI'E_MAC : pADAMT 



TAPE MAC 
TAPE~MAC 
TAPE MAC 
TAPE MAC 



TAPE_APP i pADAMT 
pADAMT 
pADAMT 
pADAMT 
pADAMT 
MTP NIM W. pADAMT 
MTP_NIM_WipADAMT 
TAPE_APP: pADAMT 

SR H1MEM: pADAMT 
TAPE_APP: pADAMT 
TAPE APP: pADAMT 



TAPE_MACs pADAMT 



eMU la te 

^ external 

( ■ > 

v. n o 

no 

ves 

^ thru OFFFFH user ran 



c 
o 

e 
o 
c 



o 



( V 



end 

no 

no 

reset 
wait 1 

Modify io_port 78H to 

wait 1 

Modify io port 78H to 1 

load N_EDS_u5!N_EOS 

display nenory HARD_INI1 MneMonic 

load BNEW ! JUS MM 



display MeMory I) 
load TAPE 

; Coldstart load 
run froM 



; Overlay 1 

run until address 1QQ4H data 81H status MeMory_write 
wait MeasureMen t_coMplete 
break 

Modify MeMory 10Q4H to 
O display registers 
run 

vJ ) Overlay 2 

run until address 1004H data 81H status MeMory_write 
.^ wait MeasureMent_coMplete 

L-' break 

Modify MeMory 1Q04H to 

run 

u 

j Overlay 3 

run until address 1004H data 81H status MeMory_write 
C- wait MeasureMen t_coMplete 

break 

Modify MeMory 1004H to 
O run 



; Overlay 4 

run until address 1004H data 81H status MeMory_write 
wait MeasureMen t_coMpiete 
b r e a k 
^ Modify MeMory 10 4H to 
r un 

O ; Overlay 5 

run until address 1004H data 81H status MeMory_write 

wait MeasureMen t_coMpiete 
9 break 

Modify MeMory 1004H to 

run 

o 



,~ H ; Overlay 6 

^ run until address 1Q04H data 81H status MeMory_write 

wait Measure«en t_coMpiete 

break 

Modify weMory 10Q4H to 

run 



c 



C j Overlay 7 

run until address 1GQ4H data 81H status MeMory_write 

wait MeasureMent_coMplete 

break 

Modify MeMory 1Q04H to 

run 



G 
O 



j Overlay 8 

run until address 1004H data 81H status «eMory_write 
© wait Measurewent^coMplete 

break 

Modify MeMory 1004H to 
O run 

} Overlay 9 
G run until address 1004H data 81H status «eMory_write 

wait MeasureMent_coMplete 

break 
O jload OUL_9 

Modify MeMory 1004H to 
c -n 

run until address 1004H data 81H status MeMory_write 
G wait MeasureMent_coMplete 
end 
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